Обработка двухмерных массивов PascalABC

[fuzick]

Составьте программу вычисления произведения тех элементов двухмерного массива А(N,M), что кратны 3 и не кратны 2.
Помогите пожалуйста.

[Niddin_hp]

Неплохо было бы уточнить способ ввода.

program qqq;
const n=3;
      m=4;
var i,j,p:integer;
    a:array [1..n,1..m] of integer;
begin
randomize;
p:=1;
for i:=1 to n do begin
  for j:=1 to m do begin 
    a[i,j]:=random(20);
    write(a[i,j]:4);
  end;
  writeln;
end;
for i:=1 to n do 
  for j:=1 to m do
    if (a[i,j] mod 3 = 0) and (a[i,j] mod 2 <> 0) then
      p:=p*a[i,j];
if p<>1 then
  writeln(p)
else
  writeln('Таких элементов в матрице нет');
end.