water

ze by stacilo deleni?


ReadLn (X, Y);
If (Y > 0.0) or (X <> 0.0) then
Begin
    R := Sqrt (X * X + Y * Y);
    S := PI * R * R / 2;
    WriteLn ('The property will be flooded in hour ',Round (S/YEAR + 0.5),'.');
End;