program water; var konec:boolean; x,y,s:real; begin repeat read(x); read(y); if x=0 then if y=0 then konec:=true; if not konec then begin s:=pi*(sqr(x)+sqr(y))/2; if s<50 then s:=50; if y<0 then s:=50; writeln('The property will be flooded in hour ',s/50:1:0,'.'); end; until konec; end.