Algorithme Calcul_divisibilité
{
        variable A,B : entier
        
        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)
        
        Si (A mod B = 0) alors
        {
                Afficher(A, " est divisible par ", B,".\n")
        }
        sinon
        {
                Afficher(A, " n'est pas divisible par ", B,".\n")
        }


}