Algorithme PGCD
{
        variable a,ai, b,bi, r : entier
        
        Afficher("Saisir les deux nombres dont vous voulez connaitre le PGCD avec le premier plus petit que le deuxième : ")
        Saisir(ai, bi)
        
        a <-- ai
        b <-- bi
        
        r <-- b mod a
        
        Tant que (r != 0)
        {
                b <-- a
                a <-- r
                r <-- b mod a
        }
        
        Afficher("Le PGCD de ",ai, " et ", bi, " est ", a, ".\n")
}