Дан массив целых чисел от 0 до 20, заполненный случайными числами

program zz1;
const n = 20; // задаем количество частей в массиве
var i, k:integer; // задаем переменные целого типа
m:array [0..n] of integer;
begin
for i:=0 to n do // получаем n чисел случайных и записываем их в массив
m[i]:=random(101);
for i:=0 to n do // выводим приобретенный массив на экран
write(m[i], );
writeln; // переходим на новейшую строчку для вывода ответа
for i:=0 to n do
if m[i] mod 3 = 0 then k:=k+1; // проверяем, если элемент массива делится на три без остатка, то считаем его
write( количество таких членов = , k); // выводим ответ
end.