Algorithme PGCD
{
        variable a,b,ao,bo,r : entier
        
        
        Afficher("Cet algorithme calcule le PGCD de deux nombres.\n")
        Afficher("Veuillez saisir le plus petit des deux nombres")
        Saisir(a)
        Afficher("Veuillez saisir le plus grand des deux nombres")
        Saisir(b)
        
        // Sauvegarde des valeurs originales de a et b
        ao <-- a
        bo <-- b
        
        r <-- b mod a
        
        Tant que (r != 0)
        {
                b <-- a
                a <-- r
                r <-- b mod a
        }
        
        Afficher("Le PGCD de ", ao, " et ", bo, " est ", a, ".\n")
}