//infoarena lacate

var n : integer;
    nrmin : longint;
    a:array[1..256,1..256] of longint;

procedure calc;
var i,j,aux,nr:integer;
begin
a[1,1]:=1; a[2,1]:=1;
for i:=1 to n-1 do
        begin
         a[1,i]:=i;
         a[i+1,1]:=i;
         end;
for i:=2 to n do
        begin
        nr:=a[i-1,n-1]+1;
        aux:=nr;
        for j:=i to n-1 do
                begin
                a[i,j]:=aux; inc(aux);
                end;
        a[i+1,i]:=nr; aux:=nr;
        for j:=i+1 to n do
                begin
                a[j,i]:=aux; inc(aux);
                end;
        end;
end;

procedure afis;
var i,j:integer;
begin
writeln(nrmin,' ',n-1);
for i:=1 to n do
        begin
        for j:=1 to n-1 do
                write(a[i,j],' ');
        writeln;
        end;
end;

begin
assign(input,'lacate.in'); reset(input);
assign(output,'lacate.out'); rewrite(output);
readln(n);
nrmin:=longint(n*(n-1)) div 2;
calc;
afis;
close(output);
end.