**TI92P*prgm_seProgram file 07/09/08, 12:20ReuclideZH(a,b) Prgm Local r,u,v,w,x,y,z,q ar:by:1u:0v:0w:1x While y0 int(r/y)q uz:wu:z-q*ww vz:xv:z-q*xx rz:yr:z-q*yy EndWhile sign(r)s abs(r)r ClrIO Disp "Pgcd de "&string(a)&" et "&string(b)&" = "&string(r) Disp string(r)&" = "&string(a)&"*("&string(s*u)&") + "&string(b)&"*("&string(s*v)&")" EndPrgm"y_