Дан массив заданный случайным образом. Найти 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.