mọi người giúp em Viết chương trình xét xem một số n có phải là số nguyên tố không,nhờ mọi người giúp em ạ :>

ng dẫn:
- Nếu n không chia hết mọi số i có giá trị từ 2 đến n - 1 thì n là số nguyên tố.
- Sử dụng biến ok có kiểu boolean và có giá trị ban đầu là true.
- Cho biến i chạy từ 2 đến n – 1. Xét n mod i. Nếu bằng 0 thì gán ok = false. Ngược
lại vẫn để nguyên ok.
b.Mã chương trình:
Program Nguyen_to_1;
uses crt;
var n, i: integer;
 ok: boolean;
begin
 ok:=true;
 write('Nhap n: ');readln(n);
 for i:= 2 to n - 1 do if n mod i = 0 then
 ok :=false;
 if ok then write(n,' la so nguyen to')
 else write(n, ' khong la so nguyen to');
 readln
end