program P88_13;{7}
uses crt;
var A: array[1..15,1..15]of integer;
    b: array[1..300]of integer;
    m,n, i,j: byte;
    nb, ib: integer;

begin
 ClrScr; Randomize;
  nb:=300;
  for ib:=1 to nb do b[ib]:=ib;
  m:=random(13)+2;  n:=random(13)+2;
  for i:=1 to m do for j:=1 to n do begin
   ib:=Random(nb)+1;
   A[i,j]:=b[ib];
   b[ib]:=b[nb];
   dec(nb);
  end;
  for i:=1 to m do for j:=1 to n do begin
   if j=1 then writeln;
   write(a[i,j]:5);
  end;
 readkey
end.