Kiểm tra số N có phải là số nguyên tố hay không. Ví dụ:
N = 19            Kết quả là: 19 la so nguyen to
N = 33            Kết quả là: 33 khong phai la so nguyen to
Yêu cầu: Input:   N, là số tự nhiên bất kỳ.
Output: Trả lời “N la so nguyen to”
      hoặc “N khong phai la so nguyen to” tùy theo N.
Lưu ý: Số nguyên tố là số chỉ có thể chia hết cho 1 và chính nó ( N ).
Ngược lại, N là không phải là số nguyên ==> N chia hết cho một số trong khoảng từ 2 đến (N-1).
Hướng dẫn: Bài toán được thực hiện qua 3 bước cụ thể như sau:
-         Thông báo nhập liệu, và nhập dữ liệu vào cho N
-         Tiến hành kiểm tra N có phải là số nguyên tố hay không:
-         Xuất câu trả lời “N la so nguyen to” hoặc “N khong phai la so nguyen to” tùy theo giá trị của biến
Chương trình:
Program SNT; Uses crt; Var n , i :Integer; // Khai bao bien su dung BEGIN Write(‘Nhap vao mot so:’); // Thong bao nhap lieu Readln(n); // Nhap gtri N, (voi &N la lay d/c bien N) i := round( sqrt(n) ); If( n mod i <> 0) then // Xuat cau tra loi cuoi cung Writeln(‘ N la so nguyen to’) Else Writeln(‘ N khong la so nguyen to’); Readln; END.

Viết chương trình kiểm tra xem số nguyên dương nhập từ bàn phím có phải là số nguyên tố hay không?
Số nguyên tố là số chỉ chia hết cho 1 và chính nó, vd: 2, 3, 5, 7 ,11.
Uses crt;
var i,n,dem:Integer;
Begin
ClrScr;
write('Nhap so nguyen duong n');ReadLn(n);
dem:=0;
for i:= 1 to n do if n mod i=0 then dem:=dem+1;
if (n<2) or (dem<>2) then writeln(n,' khong phai la so nguyen to')
Else if dem=2 then writeln(n,' la so nguyen to');
Readln
End.