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

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.