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;