RosettaCodeData/Task/Infinity/Delphi/infinity-1.pas

  Infinity    =  1.0 / 0.0;
  NegInfinity = -1.0 / 0.0;