Code:
(*Thuat toan Euclide mo rong*)
EuclideMoRong[a_, b_] := Module[{TempA, TempB, PhanDu},
If[a > b,
TempA = a;
TempB = b;
,
TempA = b;
TempB = a;
];
While[Mod[TempA, TempB] ≠ 0,
PhanDu = Mod[TempA, TempB];
TempA = TempB;
TempB = PhanDu;
];
Return[TempB];
];