Дан двумерный массив…

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.