var fi,fo:text;
    n,i,L,C,ct,j:longint;
    a:array[1..300,1..300]of longint;
begin
  assign(fi,'lacate.in'); reset(fi);
  assign(fo,'lacate.out'); rewrite(fo);
  read(fi,n);
  L:=n*(n-1) shr 1;
  C:=n-1;
  ct:=1;
  for i:=1 to n do
    for j:=i to C do
      begin
        a[i,j]:=ct;
        inc(ct);
      end;
  for i:=1 to n do
    for j:=1 to i-1 do
      a[i,j]:=a[j,i-1];
  writeln(fo,L,' ',C);
  for i:=1 to n do
    begin
      for j:=1 to C do
        write(fo,a[i,j],' ');
      writeln(fo);
    end;
  close(fi);
  close(fo);
end.