Дан двумерный массив 6х4. Пощетать количество элементов во всем массиве которые кратны 3.

Program Program1;vari,j,k:integer;A: array [1..6,1..4] of integer;beginrandomize;for i:=1 to 6 dofor j:=1 to 4 doa[i,j]:=random(100);k:=0;for i:=1 to 6 dofor j:=1 to 4 doif a[i,j] mod 3 = 0 then inc(k);writeln('Кратны трем ',k,' элем.');end.