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

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