[Alegun]

Код:

uses math;
...
summa:= RoundTo(14.402, -1); //  = 14.40
...