*Cách 1: Bằng cách đếm ước

program kiemtra;

uses crt;

var n,i,d:integer;

begin

       clrscr;

       write('Nhap n: ');  readln(n);

       d:=0;

       for i:=1 to n do

              if n mod i=0 then d:=d+1;

       if d=2 then write('N la so nguyen to')

              else write('N khong phai so nguyen to');

       readln;

end.

*Cách 2: Dùng while...do nếu số nào lớn hơn 1 và khác n mà n chia hết thì không phải số nguyên tố

program kiemtra;

uses crt;

var n,i:integer;

begin

       clrscr;

       write('Nhap n: ');  readln(n);

       i:=2;

       while n mod i<>0 do

              i:=i+1;

       if i<>n then write('N la so nguyen to')

              else write('N khong phai la so nguyen to');

       readln;

end.

*Dùng true/false;

program kiemtra;

uses crt;

var n,i:integer;

      kt:boolean;

begin

       clrscr;

       write('Nhap n: ');  readln(n);

       kt:=true;

       if n<2 then kt:=false;

       for i:=2 to n div 2 ddo

              if n mod i=0 then kt:=false;

       if kt=true then write('N la so nguyen to')

              else write('N khong phai la so nguyen to');

       readln;

end.

uses crt;
var n:longint;
function isPrimeNumber(n:longint):boolean;
var i:longint;
begin
    if n<2 then exit(false);
    for i:=2 to trunc(sqrt(n))do
        if n mod i=0 then exit(false);
    exit(true); 
end;
begin
clrscr;
    readln(n);
    write(isPrimeNumber(n));
readln
end.