Даны 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;