program water;
var
 h, rr, x, y : Real;
{ hi : Integer;}
begin
 readln(x,y);
 while not ((x=0) and (y=0)) do begin
  rr := x*x + y*y;
  h := (pi * rr) / 100;
  writeln('The property will be flooded in hour ',trunc(h)+1,'.');
  readln(x,y);
 end;
end.