вводится последовательность из n целых чисел. Сколько отрицательных и сумма положительных чисел?

program zz1;

var a, n, i, s, kol:integer; / /задаем переменные целого типа

begin

write ('введите заданное число n ');

read (n); / / вводим заданное число с клавиатуры

for i:=1 to n do

begin

read (a); / / вводим n чисел с клавиатуры

if a < 0 then kol:=kol+1 else s:=s+a; / / проверяем, если число отрицательное, то считаем его, если положительное, то прибавляем его к сумме

end;

writeln ('количество отрицательных чисел = ', kol); / / выводим первый ответ

writeln ('сумма положительных чисел = ', s); / / выводим второй ответ

end.