Паскаль. , дан двумерный массив целых чисел. в каждом столбце найти количество элементов кратных a и b.

Const   m = 5;   n = 8; var   x: array[1..m, 1..n] of integer;   i, j, a, b, k: integer; begin   write('введите числа a,b: ');   readln(a, b);   randomize;   writeln(#13#10, 'исходный массив');   for i : = 1 to m do   begin       for j : = 1 to n do       begin           x[i, j] : = random(100) - 50;           write(x[i, j]: 5)       end;       writeln   end;   writeln('количество элементов матрицы, кратных ', a);   for j : = 1 to n do   begin       k : = 0;       for i : = 1 to m do           if x[i, j] mod a = 0 then k : = k + 1;       write(k: 5)   end;   writeln;   writeln('количество элементов матрицы, кратных ', b);   for j : = 1 to n do   begin       k : = 0;       for i : = 1 to m do           if x[i, j] mod b = 0 then k : = k + 1;       write(k: 5)   end;   writeln end. тестовое решение: введите числа a,b: 4 7 исходный массив   -16      3    26      4    46    -6  -31    21   -35  -34    46    42    15  -26    -9      4   -19  -47      8  -48    13    14    42  -46     41  -10    13    45  -20    15    13  -44     18  -11    23  -30    44  -36    -8  -42 количество элементов матрицы, кратных 4       1      0      1      2      2      1      1      2 количество элементов матрицы, кратных 7       1      0      0      1      0      1      1      2

0,1,10,11,100,101,110,111,1000,1001