var fi,fo:text;
    n,i,k,j:integer;
begin
  assign(fi,'tije.in'); reset(fi);
  assign(fo,'tije.out'); rewrite(fo);
  readln(fi,n);
  for i:=1 to n-1 do
    writeln(fo,1,' ',n+1);
  for i:=2 to n do
   begin
    writeln(fo,i,' ',1);
    writeln(fo,n+1,' ',i); end;
  for i:=2 to n-1 do
    begin
      for k:=n+1 downto 3 do
        for j:=1 to i do
         writeln(fo,k-1,' ',k);
      for j:=1 to i do
        writeln(fo,n+1,' ',2);
    end;
  close(fi);
  close(fo);
end.