:сформировать массив из 10 произвольных чисел. определить сумму положительных, произведение отрицательных и количество нулевых элементов этого массива. pascal abc.

var a:array[1..10] of integer;
k,s,p,i:integer;
begin
randomize;
p:=1;
for i:=1 to n do
begin
a[i]:=random(21)-10;
if a[i]>0 then s:=s+a[i]
else if a[i]<0 then p:=p*a[i]
else inc(k3);
write (a[i]:4);
end;
writeln ('Сумма положительных=',k1);
writeln ('произведение отлицательных=',k2);
writeln ('кол-во нулевых=',k3);
end.