Code:

KiemTraNguyenTo[n_] := Module[{i},
                     i = 2;
                     While[i < n && Mod[n, i] ≠ 0, i++;];
                     If[i == n,
                             Return[True];
                          ,
                             Return[False];
                       ];
                  ];


Code:

KiemTraNguyenTo1[n_] := Module[{i},
                     i = 2;
                     While[i ≤ Sqrt[n],
                          If[Mod[n, i] == 0,
                                 Return[False];
                              ,
                                 i++;
                           ];
                       ];
                     Return[True];
                  ];