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

program zz1;

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

begin

b:=1;

for i:=1 to 10 do

begin

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

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

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

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

end;

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

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

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

end.