var o,u,k,p,n,a,b,l,m,i:longint;
begin
 readln(n,a,b);
 for i:=1 to n do write('(',a,',',i,')');
 writeln;
 for i:=1 to n do write('(',i,',',b,')');
 writeln;
 i:=0;
 if b>a then begin l:=b;m:=a;end
  else begin l:=a;m:=b;end;
 if a<b then begin
 for i:=1 to n-l+m do write('(',i,',',i+l-m,')');
  end
  else
  repeat
   i:=i+1;
   write('(',i+(l-m),',',i+(l-m)-(l-m),')') ;
  until i+(l-m)=n;
 writeln;
 if l+m-1>n then
  begin
  l:=n-l+1;
  m:=n-m+1;
  if l>m then
  begin
  o:=l;u:=m;
  end
  else
  begin u:=l;o:=m;
  end;
  k:=n-l-1-(o-u) div 2;
  p:=n-m-1-(u-o) div 2;
  end;
 for i:=1  to l+m-1  do write('(',l+m-i+k,',',i+p,')');
end.
/**************************************************************
	Problem: 1994
	User: admin
	Language: Pascal
	Result: Wrong Answer
****************************************************************/