var n,i,j,aux:longint;
    a:array[0..260,0..1000] of longint;
    buf1:array[1..1 shl 17] of char;

begin
 assign(input,'lacate.in');
 assign(output,'lacate.out');
 reset(input);
 rewrite(output);
 settextbuf(output,buf1);
  readln(n);
     aux:=1;
  for i:=1 to n do
   for j:=1 to n-1 do
    if a[i][j]=0 then begin
                       a[i][j]:=aux;
                       a[j+1][i]:=aux;
                       inc(aux);
                      end;
    writeln(a[n][n-1],' ',n-1);
   for i:=1 to n do
    begin
     for j:=1 to n-1 do
      write(a[i][j],' ');
     writeln;
    end;

 close(input);
 close(output);
{Totusi este trist in lume}
end.