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
