Code: Pascal [Select][+][-] Number := Abs(Number)*(-1);
Or simplyCode: Pascal [Select][+][-]GetNegativeValue := -abs(number) Note that your original (number*2) might overflow.