{$MODE OBJFPC} { -*- delphi -*- }
program test;
uses math;

// compiled with: fpc test.pas -dDEBUG -Co -Cr -CR -Ct -O- -g -gt -gl -gh -Sa -veiwnhb && ./test

var
   X: Double;
begin
   X := Infinity;
   Writeln(X);
end.