Programa que dado un numero indica si es amstrong o no.

Inicio
    Escribir "ingesa un numero";
    Leer n;
    Suma<-0;
    dijito<-n;
    Mientras n < > 0 hacer
       dijito<-dijito mod 10
       Suma<-(suma)+(dijito^3);
       n <- n mod 10
       Si suma=n Entonces
          Escribir "es un numero de amstrong"
          Sino Escribir "no es un numero de amstrong, intente otra vez"
       FinSi
    FinMientras
Fin