var f:text;

    l,c,i,j,k,n:word;
    a:array[1..100,1..100]of byte;
begin
     assign(f,'lacate.in');reset(f);
     read(f,n);close(f);
     c:=n-1;  k:=1;a[1,1]:=1;a[2,1]:=1;i:=2;
     for i:=2 to c do  begin
      k:=k+n-i+1;
      a[i,i]:=k;
      a[i+1,i]:=a[i,i]; end;
      k:=1;i:=0;
     for j:=1 to c-1 do begin
       i:=j+1;
     while i<=n do begin
     inc(i);inc(k);
      a[i,j]:=k;
      a[j,i-1]:=k end
     end;
     assign(f,'lacate.out');rewrite(f);
     writeln(f,a[n,n-1],' ',n-1);
     for i:=1 to n do begin
      for j:=1 to n-1 do
      write(f,a[i,j],' ');writeln(f) end;
    close(f)
end.