const  

n=5;

m=7;

var

a : array [1..n,1..m] of integer;

i, j :integer;

begin

randomize;

for i := 1 to n do

 for j := 1 to m do  

   a[i,j] := random(100)+1;

for i := 1 to n do

 begin

   for j := 1 to m do

     write(a[i,j]:4);

   writeln;

 end;

end.