Algorithme Calcul_divisibilité
{
        variable A,B : entier
                 divisible : logique
        
        Afficher("Cet algorithme teste si un premier nombre est divisible par un second.\n")
        
        Afficher("Saisir le premier nombre : ")
        Saisir(A)
        Afficher("Saisir le second nombre : ")
        Saisir(B)
        
        divisible = (A mod B = 0)
        
        Si (divisible) alors
        {
                Afficher(A, " est divisible par ", B,".\n")
        }
        sinon
        {
                Afficher(A, " n'est pas divisible par ", B,".\n")
        }


}