var V, R : extended; // single, double, real V := 3.14; R := round(V*2)*0.5; { V = 0.000 a 0.250 | R = 0.0 V = 0.251 a 0.750 | R = 0.5 V = 0.751 a 1.000 | R = 1.0 }