* trả lời câu hỏi:

Số nguyên tố là một số nguyên dương có 2 ước phân biệt là 1 và chính nó

Kiểm tra bằng cách chia số đó cho từng số từ 2 đến căn bậc hai của số đó (vì không có số nào có ước lớn hơn căn bậc hai của chính nó cả, trừ ước là chính nó, tức là ước sẽ bao gồm các số nằm trong khoảng từ 1 tới căn bậc hai của số đó và chính nó) nếu không chia hết thì tăng thêm 1 đơn vị cho đến căn bậc hai của số cần kiểm tra, nếu số đó chia hết cho 1 giá trị trong khoảng từ 2 đến căn bậc hai của số đó thì kết luận không phải là số nguyên tố, ngược lại thì là số nguyên tố

Số 1 không phải số nguyên tố vì số nguyên tố là số có hai ước là 1 và chính nó, trong khi 1 chỉ có 1 ước.

* chương trình:

uses crt;
var n,i:integer;
begin
clrscr;
write('nhap so n '); readln(n);
i:=2;
while n mod i <> 0 do i:=i+1;
if trunc(sqrt(n))=i then writeln(n,' la so nguyen to') 
else writeln(n,' khong phai la so nguyen to');
readln
end.