N là số nguyên tố nêu N không có ước số nào từ 2->N div 2. Từ định nghĩa này ta đưa ra giải thuật:
- Đếm số ước của N từ 2 -> N lưu vào biến d.
- Nếu d=0 thì N là số nguyên tố.
Uses Crt;
Var N,i,d: Word;
Begin
     If N<2 then Writeln(N,'khong phai la so nguyen to')
     Else
     Begin
         {Đếm số ước số} 
         d:=0;
         For i:=2 To N div 2 Do
             If N MOD i=0 Then    d:=d+1
         {Kiểm tra}
         If d=0 Then Writeln(N,'la so nguyen to')
         Else Writeln(N,'khong phai la so nguyen to');
      End;
      Readln
end.