?->A ?->B 1->U 1->X 0->V 0->W While B!=0 '!= correspond a différent de Int(A/B)->Q A-BxQ->R 'x : multiplier V-WxQ->S V-XxQ->T B->A:W->U:X-V R->B:S->W:T-X WhileEnd U¤ V¤ '¤ correspond au triangle A¤ 'On tape a et b dans au+bv=pgcd(a;b) 'On obtient u ; v ; pgcd(a;b)