algorithme PGCD

Exercice:
Établir l'algorithme qui permet de affiche le plus grand commun diviseur (PGCD) de deux nombre entier.
Solition:
  Algo PGCD
   Début
            var a,b,p,i,min,r1,r2 :entier
            lire("veuillez entrer la première valeur",a)
            lire("veuillez entrer la deuxième valeur",b)
            si(a<b) alors
                                min <--a
                         si non
                                   min <--b
           Fin Si
           p <--1
           i <--1
           répéter
           r1 <-- a mod i
           r2 <-- b mod i
           si ((r1=0) et (r2=0)) alors
                                                    p <-- i
           Fin Si
           i <-- i+1
           jusqu'a(i=min)
           afficher("le plus grand commun diviseur de ",a," et ",b," est ",p)
 Fin