Const
 Nmax=10;

Var
 i,j,n:Byte;
 A:Array[1..Nmax,1..Nmax] of Byte;

Begin
 Write(' n (<=',Nmax,') = ');
 Readln(n);
 for i:=1 to n do
  begin
   for j:=1 to n do
    begin
     A[i,j]:=(i-1)*n+j;
     write(A[i,j]:4);
    end;
   writeln;
  end;
 Readln
End.