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)
        
        
        Pour i de 1 à nbchiffresb
        {
                chiffre <-- ChiffreDuNombre(b,i)
                Dedans <-- Dedans ET EstDans(a,chiffre)
               
        }
        
        Si (Dedans) alors
        {
                Afficher("Tous les chiffres de ", b," sont dans ", a, ".\n" )
        }
        sinon
        {
                Afficher("Tous les chiffres de ", b," NE sont PAS dans ", a, ".\n" )
        }
}