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

var

array a[1 ... 5] of integer;

i, sum, pr, pol, otr:integer;

for i:=1 to 5 do

readln (a[i]) ;

sum:=0;

pr:=1;

pol:=0;

otr:=0;

for i:=1 to 5 do begin

sum:=sum+a[i];

pr:=pr*a[i];

if a[i]>0 then

pol:=pol+1;

if a[i]<0 then

otr:=otr+1;

end;

writeln (sum, ' ', pol, ' ', pr, ' ', otr) ;

end;