RosettaCodeData/Task/Infinity/PascalABC.NET/infinity.pas

##
Write(real.PositiveInfinity);