Ввести 7 чисел и посчитать количество чисел больше 0, и сумму чисел меньше или равных 0.

var

  c, summ:real;

  count, i:integer;

begin

  count := 0;

  summ := 0;

  for i := 1 to 7 do

  begin

    write('Введите число ');

    readln(c);

    if c > 0 then

      count := count + 1

    else

      summ := summ + c;

  end;

  writeln('Количество числел больших 0 равно ', count);

  writeln('Сумма чисел меньших либо равных 0 равна ', summ);

end.

var
s,n,i,a:integer;
begin
For i:=1 to 7 do begin
readln(a);
if a>0 then
n:=n+1
else
s:=s+a;
end;
writeln('polozitelnih=', n, ' summa otrizatelnih=', s);
end.