var i,j,n,k:longint;
    f,g:text;
begin
 assign(f,'tije.in'); reset(f);
 assign(g,'tije.out'); rewrite(g);
 read(f,n);
 for i:=n-1 downto 1 do begin
  for j:=n downto 1 do begin
   for k:=1 to i shr 1 do
    writeln(g,j,' ',j+1,#13,j,' ',j+1);
   if i and 1=1 then
    writeln(g,j,' ',j+1);
  end;
  for k:=1 to i shr 1 do
   writeln(g,n+1,' ',1,#13,n+1,' ',1);
  if i and 1=1 then
   writeln(g,n+1,' ',1);
 end;
 close(f); close(g);
end.