input "A=", A
Input "B=",B
1->C
0->D
0->E
1->F
0->T
0->I
While T=0
I+1->I
partEnt(A/B) ->Q
A-B*Q->R
Disp "Etape", I
Disp "AB", A, B
Pause
Disp "QR",Q,R
Pause
If R=0
Then
1->T
Else
C-Q*E->G
D-Q*F->H
Disp "UV",G,H
Pause
E->C
F->D
G->F
H->F
B->A
R->B
End
End
Disp "Fini, PGCD, U,V"
Disp B,E,F
C'est celui de mon livre, je l'ai recopié exprès pour toi, quelle gentillesse de ma part
En gros c'est la remontée de l'algorithme d'Euclide 