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