uses crt;

var i,n ,dem:integer;

begin

clrscr;

Write( 'nhập số nguyên dg 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,'0 phải là số nguyên tố ')

else if dem=2 then writeln(n,' là số nguyên tố ');

readln

uses crt; ----> Khai báo thư viện có tên crt var n, i:integer; ----> Khai báo biến n và biến i thuộc kiểu dữ liệu số nguyên (integer) begin ----> Bắt đầu chương trình chính clrscr; ----> Xóa toàn bộ màn hình write('Nhap vao mot so nguyen:'); ----> In ra màn hình : Nhap vao mot so nguyen readln(n); ----> Nhập giá trị cho biến n if n<=1 then writeln(n,' khong la so nguyen to') ----> Kiểm tra điều kiện n<=1 . Nếu đúng in ra màn hình : (biến n được nhập) khong la so nguyen to else ----> Điều kiện n<=1 là sai thì rẽ nhánh (ngược lại) begin ----> Khởi tạo tạo khối chương trình phụ i:=2; ----> Gán biến i có giá trị bằng 2 while (n mod i<>0) do i:=i+1; ----> Chừng nào n mod i còn khác 0 thì tăng biến i lên 1 đơn vị if i=n then writeln(n,' la so nguyen to') ----> Kiểm tra điều kiện, nếu i=n thì in ra màn hình : (biến n được nhập từ bàn phím) la so nguyen to else writeln(n,' khong la so nguyen to,); ----> Ngược lại (điều kiện là sai n<>i ) thì in ra màn hình : (biến n được nhập từ bàn phím) khong la so nguyen to end; ----> Kết thúc khối chương trình phụ readln ----> Đọc ra màn hình end. ----> Kết thúc chương trình chính b) Khi nhập vào số 9 thì chương trình sẽ xuất thông báo : 9 khong la so nguyen to c) Khi nhập vào số 131 thì chương trình sẽ xuất thông báo : 131 la so nguyen to