Вводится последовательность ненулевых чисел; 0 - конец последовательности. Посчитать, сколько в

var a: array[1..10000] of integer;

i, n: integer;

otr, s_pol: integer;

inp: integer;

begin

while inp lt;gt; 0 do begin

n := n + 1;

readln(inp);

a[n] := inp;

end;

for i := 1 to n do if a[i] gt; 0 then s_pol := s_pol + a[i] else if a[i] lt; 0 then otr := otr + 1;

writeln(Сумма положительных чисел одинакова , s_pol);

writeln(Количество отрицательных чисел равно , otr);

end.