Muestra el numero por dígitos

Proceso muestradigito
Escribir "ingrese un numero"
Leer n
Repetir
d <- n mod 10
n <- trunc(n/10)
Escribir d
Hasta Que n = 0

FinProceso