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

program zz1;

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

begin

for i:=1 to 10 do

begin

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

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

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

end;

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

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

end.