program water(input,output);
var a,b,c : real;
    i : integer;

begin
 readln(a,b);
 while (a<>0) or (b<>0) do begin
   c:=(pi*(a*a+b*b)/100);
   i:=trunc(c)+1;
   writeln('The property will be flooded in hour ',i:1,'.');
   readln(a,b);
 end;
end.