program bug; {$ifdef fpc} {$mode delphi} {$endif} const Inf = 1.0 / 0.0; begin end.