var 
  x,y: real;
  Area, R, nr: real;
  Hour: integer;
  
begin
  
  readln(x,y);
  while NOT ((x=0)and(y=0)) do
  begin
    nr:= sqrt(x*x+y*y);
    Area:=0;
    R:=0;
    Hour:=0;
    repeat
      Area:= Area+50;
      R:= Sqrt(2*Area/Pi);
      Inc(Hour)
    until (R>=nr);
  
    writeln('The property will be flooded in hour ', Hour, '.');
    readln(x,y);  
  
  end;



end.