Algorithme NombreAmstrong;
var nbre,n,som,tmp:entier;
Début
répéter
ecrire('Entrez un nombre qui sera testé: ');
lire(nbre);
jusqu’à(nbre>=0);
tmp<-nbre;
n<-0;
som<-0;
répéter
n<-nbre mod 10;
som<-som+n*n*n;
nbre<-nbre div 10;
jusqua(nbre=0);
si(som=tmp)alors
ecrire('Ce nombre est un nombre d Amstrong')
sinon
ecrire('Ce nombre n est pas un nombre d Amstrong');
fsi
Fin.