Janilabo | NegativeE() [SCAR Divi]

{==============================================================================]
  Explanation: Returns the negative number of e. -999.9 to -999.9 OR 999.9 to -999.9 (+/- => -)
[==============================================================================}
function NegativeE(e: Extended): Extended;
begin
  Result := (Abs(e) * -1);
end;


var
  x: Extended;

begin
  ClearDebug;
  WriteLn(NegativeE(x));
  x := -123.456;
  WriteLn(NegativeE(x));
  x := (x + 500.987);
  WriteLn(NegativeE(x));
end.