var n:integer;
  fin,fout:text;

 procedure muta;
  var i,j:integer;
  begin
   for i:=1 to n do
     for j:=2 to n do writeln(fout,j,' ',n+1);
   for i:=2 to n do writeln(fout,1,' ',i);
   for i:=2 to n do
     for j:=1 to n do writeln(fout,n+1,' ',j);
  end;

begin
  assign(fin,'tije.in');
  assign(fout,'tije.out');
  reset(fin);
  rewrite(fout);
  readln(fin,n);
  muta;
  close(fin);
  close(fout);
end.