Redondear valores enteros

[kapcomx]

ese problema me recuerda mis viejos tiempos cuando empezaba en pascal......jeje

que tal algo asi
1. leer el dato
2. pasarlo a una variable de texto
3. tomar los dos ultimos numeros y meterlos en dos variables cada uno el resto en otra variable.....
ultimo
penultimo
si ultimo=0 ---- dejalo asi

4. si ultimo>=1 and <=5 then
ultimo=5
si ultimo>=6 and <=9 then
ultimo=0
penultimo= penultimo + 1
5. al final concatenas
resto + penultimo + ultimo


jejejejeje mas o menos asi