Вводятся 10 чисел. Вывести на экран суммы положительных и отрицательных чисел и их количество

program zz1;

var a, b1, b2, n1, n2, i:integer; / / задаем переменные целого типа

begin

for i:=1 to 10 do

begin

read (a); / / вводим число

if a > 0 then begin n1:=n1 + a; b1:=b1 + 1; end; / / проверяем, если введенное число больше нуля, то добавляем его к сумме и считаем количество

if a < 0 then begin n2:=n2 + a; b2:=b2 + 1; end; / / проверяем, если введенное число меньше нуля, то добавляем его к сумме и считаем количество

end;

write (' сумма положительных чисел = ', n1, ' их количество = ', b1); / / выводим ответ

write (' сумма отрицательных чисел = ', n2, ' их количество = ', b2); / /

end.