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

Program n1; const nn=30000; var        m: array [1..nn,1..nn] of integer;       i,j,k,n: integer; begin k: =0; writeln('введите n'); readln(n); writeln('введите массив');   for i: =1 to n do     for j: =1 to n do begin         read(m[i,j]);         if (m[i,j] mod 3 =0) then k: =k+1;     end; writeln(k); end.

Если игра безошибочна, тогда первый игрок может первым ходом увеличить в 3 раза вторую кучу (2*3=6), второй не станет увеличивать эту-же на 3 т.к сразу проиграет (18> 17), 1) он может увеличит первую на три, тогда второй эту же увеличит на 3 и результат 1*3(2)*3(1)=9                   9+6=15, первый победит 2)первый игрок будут играть аккуратно и постоянно прибавлять по 2 во вторую кучу, поскольку и в первого "безошибочная игра", то он не станет прибавлять в 1 2 камня(1+2=3, первый умножает эту кучу на 3 и результат 6+(3*3)=15), поэтому и первый и второй будут прибавлять во вторую кучу    17=17 (что по условию не подходит), выиграл 1 ход игры всегда решает первый, а поскольку у него ходы безошибочны, то есть просчитаны наперед, второму выиграть невозможно. ответ: 1 выиграет в любом случае