program TaskI;

{$APPTYPE CONSOLE}

uses
  SysUtils, Math;

var
   N, i, j, k: Word;
   A, B, C: Array of Array of Word;
   z : Boolean;

begin
   Readln(n);
   Setlength(A, n, n);
   Setlength(B, n, n);
   Setlength(C, n, n);
   n := n - 1;
   k := 1;
   for i := 0 to n do
      for j := 0 to n do
      begin
         A[i, j] := k;
         Inc(k);
      end;
   for i := 0 to n do
   begin
      k := 1;
      for j := 0 to n do
      begin
         B[i, j] := A[i, k];
         if (k = n - 1) or (k = n) then
            k := 0
         else
            k := k + 2;
      end;
   end;
   k := 0;
   z := True;
   for i := n downto 0 do
   begin
      for j := 0 to n do
         C[i, j] := B[k, j];
      if z then
      begin
         k := k + 3;
         z := False;
      end
      else
      begin
         k := k - 2;
         z := True;
      end;
   end;
   for i := 0 to n do
   begin
      for j := 0 to n do
         Write(c[i, j], ' ');
      Writeln;
   end;
   Readln;
   Readln;
end.