program water;

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