bonjour j'ai oublier pascal mais voila l'algorithme tu n'a qu'a le traduire
Algorithme PGCD
var a,b,c,d,e:entier
debut
ecrire('donner a et b')
lire(a)
lire(b)
c<--max(a,b)
d<--min(a,b)
si c mod d <>0 alor
répéter
e<--c
c<--d
d<--e mod d
r<--c mod d
jusqu'à r=0
finsi
ecrire ('pgcd(a,b)=',d)
fin
