Var
 MassivNN,M:Array[1..5,1..5] of Integer;
 v_min,v_max,Dummy:Integer;
 i,j,k,N:byte;
 f:Text;

Begin
 Assign(f,'123.txt');
 Rewrite(f);
 Randomize;
 Write('v_min= ');
 Readln(v_min);
 Write('v_max= ');
 Readln(v_max);
 for i:=1 to 5 do
  begin
   for j:=1 to 5 do
    begin
     MassivNN[i,j]:=v_min+Random(v_max-v_min);
     write(MassivNN[i,j]:4);
     write(f,MassivNN[i,j]:4);
    end;
   writeln;
   writeln(f);
  end;
 Close(f);
 Writeln;
 Reset(f);
 N:=0;
 Repeat
  read(f,Dummy);
  Inc(N);
 Until EoLn(f);
 Reset(f);
 For i:=1 to N do
  For j:=1 to N do
   read(f,M[i,j]);
 Close(f);
 for j:=1 to N do
  begin
   for i:=1 to j do write(M[i,j-i+1]:4);
   writeln;
  end;
 for i:=2 to N do
  begin
   for j:=N downto i do write(M[N-j+i,j]:4);
   writeln;
  end;
 Readln
End.