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