Euclide[a_, b_] := Module[{x, y, temp},
      x = a;
      y = b;
      temp = 0;
      If[x > y,
          Return [ Euclide[x - y, y]],
        If[x < y,
            Return [Euclide[x, y - x]],
            temp = x;
            Return[temp];
            ];
        ];
     
      ];
a1 = Input["Nhap a:"];
b1 = Input["Nhap b:"];
Print["Uoc chung lon nhat cua 2 so la: ", Euclide[a1, b1]]

Clear[a, b];
a = Input["Nhap a"];
b = Input["Nhap b"];
Mod1[a_, b_] := Module[{x, y, du},
      x = a;
      y = b;
      If[x < y,
           Return[x];
        ,
           Return[Mod1[x - y, y]];
        ];
      ];
Print["So du cua a chia b la: ", Mod1[a, b]]

L1 = Table[Random[Integer, {1, 5}], {i, 10}];

x = Input["Nhap so can tim"];
Dem[L1_, n_, x_] := Module[{A, b, c},
      A = L1;
      b = n;
      c = x;
      If[b > 0 && A[[b]] == c, Return[1 + Dem[A, b - 1, c]],
           If[b > 0 && A[[b]] ≠ c, Return [Dem[A, b - 1, c]],
                  If[b == 0, Return [0];]   
            ];
        ];
      ];

Print["Phan tu ", x, " xuat hien ", Dem[L1, 10, x], " lan"]

(*----Danh sach khong la ngto theo module----*)
ListPrime[L_] := Module[{i, temp},
      temp = {};
      For[i = 1, i ≤ Length[L], i++,
        If[! PrimeQ[L[[i]]],
            temp = Append[temp, L[[i]]];
            ];
        ];
      Return[temp];
      ];
(*---Tong cac phtu lon 5 va be hon 11---- -*)
Tongdk[L_] := Module[{temp, n, i},
      n = Length[L];
      temp = 0;
      For[i = 1, i ≤ n, i++,
        If[L[[i]] > 5 && L[[i]] < 11,
          temp += L[[i]];
          ];
        ];
      Return[temp];
      ];
(*-----Liet ke cac ptu xuat hien it nhat trong danh sach------*)

Clear[L, n, i, temp];
n = Input["So ptu n= "];
m = Input["So ptu lam tron m ="];
L = Table[2*Random[Integer, {0, m}] + 1, {i, n}];
(*Voi n la so phan tu kq, m la so le lam tron*)
Print["Danh sach so le vua tao la: ", L];
Print["------------------------------------------"];
(*Tong binh phuong n ptu*)
Print["Tong binh phuong n ptu la: ", Sum[L[[i]], {i, Length[L]}]^2];
Print["-----------------------------------------"];
(*Tinh tong cac phan tu o vi tri chan*)
Print["Tong cac ptu o vi tri chan: ", Sum[L[[i]], {i, 2, Length[L], 2}]];
Print["--------------------------------------------------"];
(*Ptu co gia tri max*)
Print["Gia tri Max trong danh sach la: ", Max[L]];
Print["-------------------------------------"];
(*Tao ra danh sach khong phai la ngto*)
L1 = Select[L, ! PrimeQ[#] &]
Print["Danh sach khong phai la ngto la: L1=  ", L1];
Print["--------------------------------------"];
ListPrime[L]
Print["--------------------------------"];
Tongdk[L]
Print["----------------------------------"];
(*Tong ptu su dung ham*)
temp = Select[L, # > 5 && # < 11 &]
Print["Tong nhung ptu lon 5 va be hon\
 11 se la: ", Sum[temp[[i]], {i, Length[temp]}]];
Print["----------------------------"];
(*---Liet ke cac ptu xuat hien it nhat trong danh sach------------------------*)
Clear[temp, temp1, temp2, L1];
Print["DAnh sach L la: ", L];
Print["Danh sach sau khi sap xep: ", Sort[L]];
temp = Union[L];
Print["Danh sach sau khi hop: ", temp];
temp1 = Table[Count[L, temp[[i]]], {i, Length[temp]}];
Print["temp1= ", temp1];
L1 = {};
m = Min[temp1];
Print[m];
For[i = 1, i ≤ Length[temp1], i++,
    If[temp1[[i]] == m,
        L1 = Append[L1, temp[[i]]];
        ];
    ];
Print[L1];
Print["-------------------"];
(*-------UCLN-------------------*)
Print["UCLN cua danh sach la: ", GCD[Delete[L, 0]]\
];
Print["-------------------------------"];
(*Tao ra cac danh sach moi tu danh sach L*)
Clear[L1, L2];
Print["Danh sach thu nhat tao ra tu L la: L1= ",
Take[L, Ceiling[Length[L]/2]]];
Print["Danh sach thu nhat tao ra tu L la: L2= ",
Take[L, -(Ceiling[Length[L]/2])]];