Определить произведение элементов, которые при делении на 2 дают такой же остаток как и при делении на 3.

const WG1=30;
      WG2=30;
type tmati=array[1..WG1,1..WG2] of integer;
var a:tmati;n,m:byte;
(*ïðöåäóðà ââîäà ýëåìåíòîâ ìàòðèöû*)
procedure pr_wod_matr(var n1,m1:byte; var mas:tmati);
var i,j:byte; kl:byte;
begin
  writeln('Ââåäè ðàçìåðíîñòü ìàòðèöû n,m');
  readln(n1,m1);
  writeln('1-ââîä ñëó÷àéíûì îáðàçîì, 2-ââîä ñ êëàâèàòóðû');
  readln(kl);
  if kl=1 then randomize;
  for i:=1 to n1 do
   for j:=1 to m1 do
    case kl of
    1:mas[i,j]:=random(256);
    2:begin
        writeln('Ââåäè ýëåìåíò',i,' ñòðîêè ',j,' ñòîëáöà ìàòðèöû');
        readln(mas[i,j]);
      end;
  end;
end;
(*ïðîöåäóðà âûâîäà ýëåìåíòîâ ìàòðèöû*)
procedure pr_out_matr(n1,m1:byte; mas:tmati);
var i,j:byte;
begin
   writeln('Ìàòðèöà');
   for i:=1 to n1 do
   begin
     for j:=1 to m1 do
     write(mas[i,j]:6);
     writeln;
   end;
end;
procedure pr_zamena(n,m:byte;var a:tmati);
var i,j,pr:byte;
begin
  for i:=1 to n do
    for j:=1 to m do
    begin
      pr:=1;
      if a[i,j]=0 then begin
                          a[i,j]:=1;
                          pr:=2;
                       end;
      if (a[i,j]=1)and(pr=1) then a[i,j]:=0;
    end;
end;
begin
   pr_wod_matr(n,m,a);
   pr_out_matr(n,m,a);
   pr_zamena(n,m,a);
   pr_out_matr(n,m,a);
end.

const WG1=30;
      WG2=30;
type tmati=array[1..WG1,1..WG2] of integer;
var a:tmati;n,k,m,posi,posj,i,j:byte; max:integer;
(*прцедура ввода элементов матрицы*)
procedure pr_wod_matr(var n1,m1:byte; var mas:tmati);
var i,j:byte; kl:byte;
begin
  writeln('Введи размерность матрицы n,m');
  readln(n1,m1);
  writeln('1-ввод случайным образом, 2-ввод с клавиатуры');
  readln(kl);
  if kl=1 then randomize;
  for i:=1 to n1 do
   for j:=1 to m1 do
    case kl of
    1:mas[i,j]:=random(256);
    2:begin
        writeln('Введи элемент',i,' строки ',j,' столбца матрицы');
        readln(mas[i,j]);
      end;
  end;
end;
(*процедура вывода элементов матрицы*)
procedure pr_out_matr(n1,m1:byte; mas:tmati);
var i,j:byte;
begin
   writeln('Матрица');
   for i:=1 to n1 do
   begin
     for j:=1 to m1 do
     write(mas[i,j]:6);
     writeln;
   end;
end;
begin
   pr_wod_matr(n,m,a);
   pr_out_matr(n,m,a);
   max:=a[2,m];posi:=2;posj:=m;k:=0;
   for i:=1 to n do
     for j:=1 to m do
     begin
     if (i=j)and(odd(a[i,j]))  then inc(k);//главная дигональ
     if (i+j-1=n)and(odd(a[i,j])) then inc(k);//побочная диагональ
     if (n<j+i-1)and(a[i,j]>max) then  begin//максимум ниже побочной
                                      max:=a[i,j];
                                      posi:=i;
                                      posj:=j;
                                    end;
     end;
   if odd(a[(n div 2)+1,(m div 2)+1])and(n mod 2<>0) then dec(k);//случай если пересечение в нечетной матрице нечетного элемента в цикле он сплюсуется дважды, здесь -1
   a[posi,posj]:=a[posi,posj]-k;
   pr_out_matr(n,m,a);
   writeln('Координаты максимума- (',posi,':',posj,') Максимум= ',max);
   writeln('Количество нечетных= ',k);
end.

(*основной модуль*)
begin
   pr_wod_matr(n,m,a);
   pr_out_matr(n,m,a);
   pr:=1;
   for i:=1 to n do
     for j:=1 to m do
     if (a[i,j] mod 2)=(a[i,j] mod 3) then pr:=pr*a[i,j];
   writeln('Произведение= ',pr);
end.