Var
  A: array [1..10] of integer;
  i, count: byte;
  mult: integer;
begin
writeln('Сгенерированный массив.');
randomize;
for i := 1 to 10 do
begin
  A[i] := random(11) + 10;
  writeln(A[i]:4);
end;

count := 0;
mult := 1;

for i := 1 to 10 do
  if A[i] mod 3 = 0 then
  begin
    count := count + 1;
    mult := mult * A[i];
  end;
 
if (count = 1) or (count = 0) then  
  writeln('Количество элементов кратных 3 = ', count)
else
  writeln('Количество элементов кратных 3 = ', count, ' Произведение этих элементов = ', mult);
readln;
end.