Найти произведение элементов массива, кратных 3 и 9

var
  a:array[1..4,1..5] of integer;
  i,j,k,buf:integer;
begin
  {Zapolnenie}
  for i:=1 to 4 do
    for j:=1 to 5 do
      begin
        write('a[',i,',',j,']=');
        read(a[i,j]);
      end;
  {Vyvod}
  writeln('Do sortirovki:');
  for i:=1 to 4 do
    for j:=1 to 5 do
      begin
        write(a[i,j]:5);
        if j=5 then
          writeln;
      end;
  writeln;
  {Sortirovka}
  for i:=1 to 4 do
    for j:=1 to 4 do
      for k:=j+1 to 5 do
        if a[i,j]>a[i,k] then
          begin
            buf:=a[i,k];
            a[i,k]:=a[i,j];
            a[i,j]:=buf;
          end;
  {Vyvod}
  writeln('Posle sortirovki:');
  for i:=1 to 4 do
    for j:=1 to 5 do
      begin
        write(a[i,j]:5);
        if j=5 then
          writeln;
      end;
end.

program a1;
const n=10;
var a:array [1..10] of integer;
i,p:integer;
begin
for i:=1 to n do
a[i]:=5+random(496);
p:=1;
for i:=1 to n do
if (a[i] mod 3=0) and (a[i] mod 9=0) then
p:=p*a[i];
if p=1 then writeln('Элементов кратных 3 и 9 нет')
else 
writeln('Произведение элементов массива кратных 3 и 9:=',p);
readln;
end.