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

Ira

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]