program test;
uses
  Math;
var
  D: Double;
begin
  D := Infinity;
end.