program oken;
uses crt;
var i,n,dem:longint;
    kt:boolean;
begin
        clrscr;
        write('Nhap n: '); readln(n);
        write('Uoc cua 5: ');
        for i:=1 to n-1 do
                if n mod i=0 then write(i,' ');
        if (n=0) or (n=1) then kt:=false
           else
                begin
                    dem:=0;
                    for i:=2 to (n div 2) do
                      if n mod i =0 then
                          dem:=dem+1;
                    if dem<>0 then kt:=false
                    else  kt:=true;
                end;
        writeln;
        if kt=true then writeln(n,' la so nguyen to')
        else writeln(n,' khong phai la so nguyen to');
        readln;
end.

#include<bits/stdc++.h>
using namespace std;
bool snt(int n)
{
    if(n < 2){
        return false;
    }
    int count = 0;
    for(int i = 2; i <= sqrt(n); i++){
        if(n % i == 0){
            count++;
        }
    }
    if(count == 0){
        return true;
    }else{
        return false;
    }
}
int main()
{
    int n,uc=0;
    cin>>n;
    for(int i=1;i<=n;i++){
        if(n%i==0){
            uc++;
        }
    }
    cout<<n<<" co "<<uc<<" uoc"<<endl;
    if(snt(n)){
        cout<<"n la so nguyen to";
    }
    else{
        cout<<n<<" khong phai la so nguyen to";
    }
    //samon247
    return 0;
}