uses crt;
var n,i:longint; kt:boolean;
begin 
clrscr;
   write('Nhap N: ');readln(n);
   kt:=true;
   if n>1 then kt:=true else kt:=false;
   for i:=2 to trunc(sqrt(n)) do 
      if n mod i=0 then kt:=false;
   if kt then writeln(N,' la so nguyen to') 
   else writeln(N,' khong la so nguyen to');
readln
end.

i * i <= n tương đương sqrt

uses crt;
var n: longint;

function prime(n: longint): boolean;
var i: longint;
begin
    if n < 2 then
        exit(false);
    if n < 4 then
        exit(true);
    if(n mod 2 = 0) or (n mod 3 = 0) then
        exit(false);
    i:=5;
    while i * i <= n do 
        begin
            if(n mod i = 0) or (n mod (i + 2) = 0) then
                exit(false);
            inc(i, 6);
        end;
    exit(true);
end;

begin
clrscr;
    readln(n);
    writeln(prime(n));
readln;
end.