var n,i,j,k:longint;
a:array[1..100,1..100] of longint;
f:text;
begin
assign(f,'lacate.in');reset(f);
read(f,n);
close(f);
assign(f,'lacate.out');rewrite(f);
writeln(f,(n*(n-1)) div 2,' ',n-1);
k:=0;
for i:=1 to n do begin
    for j:=1 to n do
        if j<>i then begin
                     if j>i then begin
                                 a[i,j]:=k+1;
                                 a[j,i]:=k+1;
                                 end;
                            writeln(f,a[i,j]);
                            end;
                            end;
close(f);
end.