Algorithme Test_Nombre
{
        variable a,b, nbchiffresb, i, chiffre : entier
                 Dedans : booleen

        Dedans <-- VRAI

        Afficher("Saisir les deux entiers a et b")
        Saisir(a,b)
        
        nbchiffresb <-- NombreDeChiffres(b)
        i<-- 1
        
        Tant que ((i <= nbchiffresb) ET Dedans)
        {
                chiffre <-- ChiffreDuNombre(b,i)
                Dedans <-- EstDans(a,chiffre)
                i <--i+1
        }
        
        Si (i > nbchiffresb) alors
        {
                Afficher("Tous les chiffres de ", b," sont dans ", a, ".\n" )
        }
        sinon
        {
                Afficher("Tous les chiffres de ", b," NE sont PAS dans ", a, ".\n" )
        }
}