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

Var

i, pr, k: byte;

arr: array[1 ... 10] of byte;

begin

randomize () ;

pr : = 1;

k : = 0;

for i : = 1 to 10 do

begin

arr[i] : = random (11) + 10;

if arr[i] mod 3 = 0 then begin

pr : = pr * arr[i];

k : = k + 1;

end;

end;

writeln (arr) ;

writeln ('Произведение чисел, кратных 3-м = ', pr) ;

writeln ('Кол-во этих чисел = ', k) ;

end.