đây là 1 bài ví dụ nha 

uses   crt;

var     'số nhập từ bàn phím' : integer;

begin

clrscr;

readln(số nhập từ bàn phím);

if(số nhập từ bàn phím mod số nhập từ bàn phím <> 0) and (số nhập từ bàn phím mod 1<>0) 

then write (số nhập từ bàn phím ,'la so nguyen to ') else write ( số nhập từ bàn phím ,' ko phai la so nguyen to');

readln

end.

Mình không biết có bao nhiêu cách kiểm tra nguyên tố nhưng mình có 3 cách, bạn tham khảo:

*Cách 1: Dùng boolean.

uses crt;

var n,i:integer;

      kt:boolean;

begin

     clrscr;

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

     kt:=true;

     if n<2 then kt:=false

     else for i:=2 to n div 2 do

          if n mod i=0 then

               begin

                    kt:=false;

                    break;

               end;

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

     else write(n,' khong phai so nguyen to');

     readln;

end.

*Cách 2: Đếm ước (dùng for)

uses crt;

var n,i,d:integer;

begin

     clrscr;

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

     d:=0;

     for i:=2 to n div 2 do

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

     if d=0 then write(n,' la so nguyen to')

     else write(n,' khong phai so nguyen to');

     readln;

end.

*Cách 3: Dùng while để kiểm tra.

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 n=i then write(n,' la so nguyen to')

     else write(n,' khong phai so nguyen to');

     readln;

end.