Program Ex;
uses wincrt;
var
  i,num,num1,mone,sum:integer;
begin
  mone:=0; sum:=0;
  writeln('Type a Number');
  readln(num);
  inc(sum,num);
  For i:=2 to 7 do
    begin
      writeln('Type a Number');
      readln(num1);
      if (num div abs(num))<>(num1 div abs(num1)) then
        inc(mone);
      num:=num1;
      inc(sum,num);
    end;
  writeln('äñëåí äîöèáø:',sum);
  writeln('îñôø äçìôåú äñéîï:',mone);
end.

 program targil1;
var i,y,x:integer;
    a:array{1..10} of integer;
begin
x:=0;
y:=0;
for i:=1 to 10 do readln(a{i});
for i:=1 to 10 do
begin
if a{i}>=38 then x:=x+1
           else
                if x>=3 then
                begin
                     y:=y+1;
                     x:=0;
                end;
end;
writeln('Sickness Aprooval: ',y);
end.