program water;

var x,y:real;
    t:integer;
    
BEGIN
  repeat
    readln(x,y);
    if (x-0.01>0)or(y-0.01>0)then
    begin 
    t:=trunc((x*x+y*y)*pi/(100))+1;
    writeln('The property will be flooded in hour ',t,'.');
    end;  
  until (x-0.01<0)and(y-0.01<0);
  writeln;
END.