Uses CRT;

Const
 n=7;

Var
 M:Array[1..n,1..n] of Integer;
 v_min,v_max,A:Integer;
 i,j,k,n1:byte;
 f:Text;
 S:String;


Begin
 Assign(f,'D:\mmm.txt');
 Rewrite(f);
 ClrScr;
 Write(' v_min = ');
 Readln(v_min);
 Write(' v_max = ');
 Readln(v_max);
 Writeln;
 Randomize;
 for i:=1 to n do
  begin
   for j:=1 to n do
    begin
     M[i,j]:=v_min+Random(v_max-v_min+1);
     write(M[i,j]:5);
     write(f,M[i,j]:6,' ');
    end;
   writeln;
   writeln(f);
  end;
 Close(f);
 Writeln;
 Reset(f);
 n1:=0;
 While Not(Eof(f)) do
  begin
   Readln(f,S);
   Inc(n1);
  end;
 for j:=n1 downto 1 do
  begin
   Reset(f);
   for i:=1 to n1+1-j do
    begin
     for k:=1 to j+i-1 do read(f,A);
     readln(f);
     write(A:5);
    end;
   Writeln;
  end;
 for i:=2 to n1 do
  begin
   Reset(f);
   for k:=1 to i-1 do readln(f);
   for k:=i to n1 do
    begin
     for j:=1 to k-i+1 do read(f,A);
     readln(f);
     write(A:5);
    end;
   Writeln;
  end;
 Close(f);
 ReadKey
End.