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];
      ];