var a:array[-1..201,-1..201] of longint;
    i,j,k,l,n,m:longint;

procedure fill(i,j:integer);
begin
writeln(i,' ',j);
read(a[i,j]);
if a[i,j]=0 then halt
            else
  if a[i,j]>0 then
    begin
    fill(i div 2,j div 2);
    fill(i+i div 2,j div 2);
    fill(i div 2,j+j div 2);
    end
              else
    begin
    fill(i+i div 2,j+j div 2) ;
    fill(i,j+j div 2) ;
    fill(i+i div 2,j);
    end;
end;


begin
n:=200;
for i:=-1 to n+1 do
  begin
  a[i,-1]:=2000;
  a[-1,i]:=2000 ;
  a[n+1,i]:=2000 ;
  a[i,n+1]:=2000  ;
  end;
fill(100,100);
end.