В матрице 3*4 найти произведение элементов кратных 3 и 9

type
  mas = array [1..3, 1..4] of integer;
 
var
  a: mas;
  i, j, p: integer;
 
begin
  randomize;
  p := 1;
  for i := 1 to 3
    do 
    for j := 1 to 4
    do 
    begin
      A[i, j] := random(256);
      if (A[i, j] mod 3 = 0) or (A[i, j] mod 9 = 0)
        then p *= A[i, j];
    end;
  writeln(p);
end.

const
  n = 3;
  m = 4;
 
type
  mas = array [1..n, 1..m] of integer;
 
var
  a: mas;
  k, i, j: integer;
  p: real;
 
begin
  randomize;
  p := 1;
  k := 0;
  for i := 1 to n  do
  begin
    for j := 1 to m  do 
    begin
      A[i, j] := random(256);
      write(A[i, j]:5);
      if (A[i, j] mod 3 = 0) and (A[i, j] mod 9 = 0) then 
      begin
        p *= A[i, j];
        inc(k);
      end;
    end;      
    writeln;
  end;
  if k <> 0 then 
    writeln(p)
  else  
    writeln('Нет таких чисел.');
end.