const
 Nmax=10;

var
 N,D,i,j:Integer;
 A:Array[1..Nmax,1..Nmax] of Integer;

Begin
 Write('N= ');
 Readln(N);
 Randomize;
 for i:=1 to N do
  begin
   for j:=1 to N do
    begin
     A[i,j]:=-3+Random(20);
     Write(A[i,j]:4);
    end;
   Writeln;
  end;
 Writeln;
 for j:=2 to N do
  begin
   D:=A[j,j];
   A[j,j]:=A[1,j];
   A[1,j]:=D;
  end;
 for i:=1 to N do
  begin
   for j:=1 to N do
    Write(A[i,j]:4);
   Writeln;
  end;
 Readln;
End.