program bug;

{$mode delphi}

uses
  math;

{$Q+}
{$R+}

begin
  Writeln(Math.Infinity);
end.