Вычислить сумму положительных и произведение отрицательных элементов массива…

var a: array [1… 10] of integer; s,s1,i: integer; begin s: =0; s1: =1; for i: =1 to 10 do begin readln (a[i]); if a[i]>0 then s: =s+a[i]; if a[i]<0 then s1: =s1*a[i]; end; writeln ('Сумма: ',s,', произведение: ',s1); end.