var f,g:Text;
    v:array[0..300,0..300]of longint;
    n,i,j,p:longint;
begin
assign(f,'lacate.in');
assign(g,'lacate.out');
reset(f);
rewrite(g);
read(f,n);
writeln(g,n*(n-1)div 2,' ',n-1);
for i:=1 to n-1 do
  begin
    for j:=i to n-1 do v[i,j]:=p+j;
    for j:=i+1 to n do v[j,i]:=p+j-1;
    inc(p,n-i-1);
  end;
for i:=1 to n do
  begin
    for j:=1 to n-1 do write(g,v[i,j],' ');
    writeln(g);
  end;
close(f);
close(g);
end.