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

vararray 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 beginsum: =sum+a[i]; pr: =pr*a[i]; if a[i]>0 thenpol: =pol+1; if a[i]<0 thenotr: =otr+1; end; writeln (sum, ', pol, ',pr, ',otr); end;