Janilabo | Negative() [SCAR Divi]

{==============================================================================]
  Explanation: Returns the negative number of i. -9999 to -9999 OR 9999 to -9999 (+/- => -)
[==============================================================================}
function Negative(i: Integer): Integer;
begin
  Result := (IAbs(i) * -1);
end;

var
  x: Integer;

begin
  ClearDebug;
  WriteLn(Negative(x));
  x := -999;
  WriteLn(Negative(x));
  IncEx(x, 500000);
  WriteLn(Negative(x));
end.