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)); if t+0.000001<((x*x+y*y)*pi/100) then inc(t); writeln('The property will be flooded in hour ',t,'.'); end; until (x-0.01<0)and(y-0.01<0); writeln; END.