Sử dụng Câu lệnh while .do viết chương trình: Nhập Số nguyên dương và kiểm tra xem số đó có phải là số nguyên tố không ?

uses crt;

var n,i,d: longint;

begin

clrscr;

write('Nhap n: '); readln(n);

i:=0;

d:=0;

while i<=n do

begin

i:=i+1;

if n mod i = 0 then d:=d+1;

end;

if d=2 then write('N la so nguyen to') else write('N khong la so nguyen to');

readln

end.