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

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

i, n: integer;

otr, s_pol: integer;

inp: integer;

begin

while inp <> 0 do begin

n := n + 1;

readln(inp);

a[n] := inp;

end;

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

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

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

end.