Для каждой из целочисленных матриц A(6,8) и B(5,7) вывести на печать количество элементов, кратных шести

var i,j:integer; n:array[1..6,1..8] of integer; m:array[1..5,1..7] of integer;
begin
 for i:=1 to 6 do for j:=1 to 8 do Readln(n[i,j]);
 for i:=1 to 5 do for j:=1 to 7 do Readln(m[i,j]);
 
 for i:=1 to 6 do for j:=1 to 8 do if (n[i,j] mod 6)=0 then Write(n[i,j]:5);
 for i:=1 to 5 do for j:=1 to 7 do if (m[i,j] mod 6)=0 then Write(m[i,j]:5);
 
readln;
end.

program cal;
 
type
  vector = array[1..100, 1..100] of integer;
 
procedure Kratn(const P: vector; g, r: integer);
var
  l, k: integer;
begin
  for l := 1 to g do 
  begin
    for k := 1 to r do
      if P[l, k] mod 6 = 0 then
        write(P[l, k]:3, ' ');
    WriteLn;
  end;
end;
 
var
  A: vector;
  B: vector;
  i, j, nA, mA, nB, mB: integer;
 
begin
  Randomize;
  writeln('Введите размер матрицы A Строки-Столбцы');
  readln(nA, mA);
  
  writeln('Введите размер матрицы В Строки-Столбцы');
  readln(nB, mB);
  
  writeln('Матрица А:');
  for i := 1 to nA do 
  begin
    for j := 1 to mA do 
    begin
      A[i, j] := Random(100); {случайное  число от нуля до 99}
      Write(A[i, j]:3, ' '); {сразу и выведем значение на экран}
    end;
    WriteLn;
  end;
  
  writeln('Матрица B:');
  for i := 1 to nB do 
  begin
    for j := 1 to mB do 
    begin
      B[i, j] := Random(100); {случайное  число от нуля до 99}
      Write(B[i, j]:3, ' '); {сразу и выведем значение на экран}
    end;
    WriteLn;
  end;
  
  
  WriteLn('Кратные элементы 6 матрицы A: ');
  Kratn(A, nA, mA);
  
  WriteLn('Кратные элементы 6 матрицы B: ');
  Kratn(B, nB, mB);
  WriteLn;
  Readln;
end.

program cal;
 
type
  vector = array[1..100, 1..100] of integer;
 
procedure Kratn(const P: vector; g, r: integer);
var
  l, k: integer;
begin
  for l := 1 to g do 
  begin
    for k := 1 to r do
      if P[l, k] mod 6 = 0 then
        write(P[l, k]:3, ' ');
    WriteLn;
  end;
end;
 
var
  A: vector;
  B: vector;
  i, j: integer;
 
begin
  Randomize;
  writeln('Матрица А:');
  for i := 1 to 6 do 
  begin
    for j := 1 to 8 do 
    begin
      A[i, j] := Random(100); {случайное  число от нуля до 99}
      Write(A[i, j]:3, ' '); {сразу и выведем значение на экран}
    end;
    WriteLn;
  end;
  
  writeln('Матрица B:');
  for i := 1 to 5 do 
  begin
    for j := 1 to 7 do 
    begin
      B[i, j] := Random(100); {случайное  число от нуля до 99}
      Write(B[i, j]:3, ' '); {сразу и выведем значение на экран}
    end;
    WriteLn;
  end;
  
  
  WriteLn('Кратные элементы 6 матрицы A: ');
  Kratn(A, 6, 8);
  
  WriteLn('Кратные элементы 6 матрицы B: ');
  Kratn(B, 5, 7);
end.