var a:array[0..300,0..300] of longint;
    f,g:text;
    i,j,n,nr:longint;

begin
 assign(f,'lacate.in'); reset(f);
 assign(g,'lacate.out'); rewrite(g);
 read(f,n);
 writeln(g,n*(n-1) shr 1,' ',n-1);
 nr:=0;
 for i:=1 to n-1 do
  for j:=i+1 to n do begin
   inc(nr);
   inc(a[i,0]); a[i,a[i,0]]:=nr;
   inc(a[j,0]); a[j,a[j,0]]:=nr;
  end;
 for i:=1 to n do begin
  for j:=1 to a[i,0]-1 do
   write(g,a[i,j],' ');
  writeln(g,a[i,a[i,0]]);
 end;
 close(f); close(g);
end.