Uses crt;
Var a,n,i,k, sl,j:Integer;
Begin
 clrscr;
 a:=0;
 write('Nhap n: ');
 readln(n);
 k:=0;
 for i:=1 to n do if n mod i=0 then k:=k+1;
 writeln('So uoc cua ',n,' la: ',k);
 for i:=1 to n-1 do
       begin
                 sl:=0;
                 for j:=1 to i do if i mod j=0 then sl:=sl+1;
                 if k>sl then a:=a+1;
        end;
  if n=a+1 then write(n,' yes ') else write(n,' no');
readln
end.

#include <iostream>
using namespace std;

bool kt_SNT(int n) {
    int dem = 0;
    for (int i = 1; i <= n; i++) {
        if (n % i == 0) {
            dem++;
        }
        else {
            cout << "";
        }
    }
    if (dem <= 2) {
        return true;
    }
    else {
        return false;
    }
}
int main() {
    int n;
    cout << "Nhap n:";
    cin >> n;

    if (kt_SNT(n)) {
        cout << n << " la snt";
    }
    else {
        cout << n << " khong la snt";
    }
}