var n,i,p,j,l:integer;
    a:array[1..256,1..256]of integer;
    f,g:text;

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