uses crt; {khai báo thư viện crt}
vả n,i:integer; {khai báo 2 biến n,i kiểu integer}
begin {bắt đầu}
clrscr; {Xóa sạch mà hình}
write('Nhap vao mot so nguyen'); {In ra màn hình"Nhao vao mot so nguyen"}
readln(n); {Nhập vào 1 số}
if n<2 then writeln('N khong phai so nguyen to') {Nếu n<2 thì in ra màn hình "N khong phai so nguyen to}
else {ngược lại thì}
begin {bắt đầu}
i:=2; {Gán i=2}
while (n mod i<>0) do i:=i+1; {Trong khi n còn chưa chia hết cho i thì tăng i thêm 1 đơn vị}
if i=n then writeln(n,' la so nguyen to') {Nếu i=n thì in ra màn hình giá trị của n " la so nguyen to"}
else writeln(n,' khong phai la so nguyen to'); {ngược lại thì in ra giá trị của n " khong phai la so nguyen to"}
end; {kết thúc}
readln; {nhấn enter để bỏ qua}
end. {Kết thúc}
Ví dụ:
1: In ra màn hình "N khong phai so nguyen to"
7: In ra màn hình "7 la so nguyen to"
8: In ra màn hình "8 khong phai la so nguyen to"
