массив содержит 10 случайных чисел от 10 до 20. определите произведение чисел кратных 3 и их количество

var  A: array [1..10] of integer;  i, count: byte;  mult: integer;beginwriteln('Сгенерированный массив.');randomize;for i := 1 to 10 dobegin  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.