program taomang;
uses crt;
var A3:array[1..7,1..9] of integer;
a1,a2,i,j:byte;
begin
clrscr;
write('Nhap a1: '); readln(a1);
write('Nhap a2: '); readln(a2);
randomize;
for i:=1 to a1 fo
for j:=1 to a2 do
A3[i,j]:=random(143)+1802;
for i:=1 to a1 do
begin
for j:=1 to a2 do
write(A3[i,j]:5);
writeln;
end;
readln;
end.