Заполнить двумерный массив n*n числами с клавиатуры и сосчитать количество чисел в массиве кратных 3

program zz1;

const n=5; / /задаем n

var a:array[1 ... n, 1 ... n] of integer;

i, j, k:integer;

begin

for i:=1 to n do

for j:=1 to n do

a[i, j]:=random (20) + 1; / /заполняем массив случайными числами от 1 до 20

for i:=1 to n do

begin

for j:=1 to n do

write (a[i, j]:4); / /выводим полученный массив на экран

writeln;

end;

for i:=1 to n do

for j:=1 to n do

if a[i, j] mod 3 = 0 then k:=k+1; / /проверяем, если элемент массива делится на три, то считаем его

writeln;

write ('Количество элементов кратных трем - ', k); / /выводим ответ

end.