Найти произведение двузначных нечетных чисел, кратных 13

var i,s :integer;
begin
s:=1;
for i:=10 to 99 do
if (i mod 13=0) and (i mod 2=1) then s:=s*i;
writeln('Ïðîèçâåäåíèå äâóçíà÷íûõ íå÷åòíûõ ÷èñåë, êðàòíûõ 13: ',s);
end.

var i,j,m,n,s: integer;
      a:array[1..100,1..100] of integer;
begin
write('Ââåäèòå ðàçìåðíîñòü ìàññèâà (n,m): ');
readln(m,n);
//**********************************
randomize;
for i:=1 to n do
begin
writeln;
 for j:=1 to m do
 begin
  a[i,j]:=random(90)+10;
  write(a[i,j]:4);
 end;
end;
writeln;
//************************************
s:=1;
for i:=1 to n do
 for j:=1 to m do
if (a[i,j] mod 13=0) and (a[i,j] mod 2=1) then s:=s*a[i,j];
writeln('Ïðîèçâåäåíèå äâóçíà÷íûõ íå÷åòíûõ ÷èñåë, êðàòíûõ 13: ',s);
end.

const n=30;
var i,s: integer;
      a:array[1..n] of integer;
begin
randomize;
for i:=1 to n do
begin
  a[i]:=random(90)+10;
  write(a[i]:3);
end;
writeln;
s:=1;
for i:=1 to n do
if (a[i] mod 13=0) and (a[i] mod 2=1) then s:=s*a[i];
writeln('Ïðîèçâåäåíèå äâóçíà÷íûõ íå÷åòíûõ ÷èñåë, êðàòíûõ 13: ',s);
end.