Дан массив заданный случайным образом. Найти s и p элементов, кратных 3-ём и положительных, кол-во всех остальных.

const n=10; var a:array[1..n] of integer; s,p,k,i:integer; begin s:=0; p:=1; randomize; for i:=1 to n do begin a[i]:=Random(100); if (a[i]>0) and (a[i] mod 3 =0) then k:=k+1; p:=p*a[i]; s:=s+a[i]; write(a[i], ' ') end; writeln('Сумма = ',s); writeln('Произведение = ',p); writeln('Количество положительных и кратных 3-м = ',k); end.