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