Je voudrais trouver le pgcd de deux nombres c'est-à-dire :
 
exemple :  
pgcd(80,73)=?
On divise 80 par 73 et on recupère le reste de cette division qui est 7.  
Puis on divise 73 par 7 et on récupère le reste de cette division qui est 3.
Puis on divise 7 par 3 et on récupère le reste de cette division qui est 1.
Puis on divise 3 par 1 et on récupère le reste de cette division qui est 0.
Le pgcd est le dernier reste non nul donc ici c'est 1.
 
Mon programme :
 
euclide(a,b)
Prgm
Local d,q,r
If b=0 Then
   a->d
EndIf
While b différent de 0
   If partEnt(a/b)=(a/b) Then
      b->d
   Stop
   Else  
      partEnt(a/b)->q
      a-b*q->r
      b->a
      r->b
      b->d
   EndIf
EndWhile
Disp d
EndPrgm
 
Mon programme est exécuté sur la voyage 200 mais je n'arrive pas à imprimer d qui est mon pgcd. Pouvez-vous m'aider?
Je vous en remercie d'avance.