Code:

(*Phan tich 1 so tu nhien thanh tich cac thua so nguyen to*)
PhanTich[n_] := Module[{i, temp, kq},
         temp = n;
         kq = "= 1";
         While[temp ≠ 1,
              i = 2;
              While[Mod[temp, i] ≠ 0,
                   i++;
                ];
              temp = temp/i;
              kq = kq <> "." <> ToString[i];
           ];
         Return[kq];
      ];
Clear[n];
n = Input["Nhap gia tri cua n"];
Print["n = ", n, PhanTich[n]];