var
  floatvar, bigFloat : single;
  int : Integer;
  varVar : Variant;

begin
  floatvar := -1.5;       // Small negative floating point number
  bigFloat := -4.56E100;  // Infinite negative floating point number
  int      := -7;         // Negative integer
  varVar   := '-98';      // Variants are converted to floating point!

  Writeln('Abs(floatvar) = ',Abs(floatvar));
  Writeln('Abs(bigFloat) = ',Abs(bigFloat));
  Writeln('Abs(int) = ',Abs(int));

  // Variants are converted into Extended floating types
  floatvar := Abs(varVar);
  Writeln('Abs(varVar) = ',floatvar);
end.