[كوثروا]

var
a,b,r:entien
debiut
ecrire('entrez a et b telque b<a)&
repeter
lire (a
lire(b
jusqua b<a
repeter
r:=a mod b (mod c'est le reste de division
a:=b
b:=r
jusqu'a r=0
ecrire' le pgcd est', a