var n,m,i,x:longint; f1,f2:text;
begin
        assign(f1,'dame.in');
        reset(f1);
        assign(f2,'dame.out');
        rewrite(f2);
        read(f1,n);
        x:=(n+1) div 2;
        m:=n;
        if n=2 then begin
                writeln(f2,'1');
                write(f2,'1 1');
        end;
        if n=3 then begin
                writeln(f2,'2');
                writeln(f2,'1 2');
                writeln(f2,'3 1');
        end;
        if (n<>2) and (n<>3) then writeln(f2,n);
        if (n mod 12<>2)and(n mod 6<>3)and(n mod 12<>8) then
        begin
                for i:=1 to n do begin
                        if i mod 2=1 then begin writeln(f2,i,' ',x); dec(x); end;
                        if i mod 2=0 then begin writeln(f2,i,' ',m); dec(m); end;
                end;
        end;
        if n mod 12=8 then
        begin
                for i:=1 to n do begin
                        if i mod 2=1 then begin writeln(f2,i,' ',x); dec(x); end;
                        if i mod 2=0 then begin
                                if i mod 4=2 then writeln(f2,i,' ',m-1)
                                             else begin writeln(f2,i,' ',m); m:=m-2; end;
                        end;
                end;
        end;
        if (n mod 6=3)and(n<>3) then
        begin
        m:=1;
                for i:=1 to n do begin
                        if i=1 then writeln(f2,1,' ',n-1);
                        if i=2 then writeln(f2,2,' ',x-1);
                        if i=3 then writeln(f2,3,' ',n);
                        if (i mod 2=1)and(i>4) then begin writeln(f2,i,' ',x); inc(x); end;
                        if (i mod 2=0)and(i>2) then begin writeln(f2,i,' ',m); inc(m); end;
                end;
        end;
        if (n mod 12=2)and(n<>2) then
        begin
        m:=1;
                for i:=1 to n do begin
                        if i mod 2=0 then begin writeln(f2,i,' ',m); inc(m); end;
                        if i mod 2=1 then begin
                                if i=1 then writeln(f2,i,' ',x+2);
                                if i=3 then writeln(f2,i,' ',x+1);
                                if i=5 then writeln(f2,i,' ',n);
                                if i>5 then begin writeln(f2,i,' ',x+3); inc(x); end;
                        end;
                end;
        end;
        close(f1);
        close(f2);
end.