Найти произведение положительных, сумму и количество отрицательных из 10 введенных целых чисел

program zz1;

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

begin

b:=1;

for i:=1 to 10 do

begin

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

if a > 0 then b:=b * a; / / проверяем, если число больше нуля, то умножаем его на произведение

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

if a < 0 then k:=k + 1; / / проверяем, если число меньше нуля, то считаем его

end;

writeln (' произведение положительных = ', b); / / выводим ответы

writeln (' сумма отрицательных = ', n);

writeln (' количество отрицательных = ', k);

end.