Program SNT;
Uses crt;
Var n , i :Integer;                                 
BEGIN
Readln(n);                                   
            i := round( sqrt(n) );
            If( n mod i <> 0) then                  
                        Writeln(‘ N la so nguyen to’)
            Else
                        Writeln(‘ N khong la so nguyen to’);
            Readln;
END.
#include<stdio.h>
#include<conio.h>

int main()
{
    int i, n;
    printf("\nNhap n: ");
    scanf("%d", &n);

    if(n < 2)
        printf("\nSo %d khong phai la so nguyen to", n);
    else if(n == 2)
        printf("\nSo %d la so nguyen to", n);
    else if(n % 2 == 0)
        printf("\nSo %d khong phai la so nguyen to", n);
    else
    {
        for(i = 3; i <= n; i+=2)
        {
            if(n % i == 0)
                break;
        }
        if(i == n)
            printf("\nSo %d la so nguyen to", n);
        else
            printf("\nSo %d khong phai la so nguyen to", n);
    }
        

    getch();
    return 0;
}