Viết chương trình kiểm tra tính nguyên tố của số nguyên dương N

Program songuyento;

Uses crt;

var i,n,so:Integer;

Begin

Clrscr;

so:=0;

write(‘Nhap so nguyen duong n’,n);

Readln(n);

for i:= 1 to n do if n mod i=0 then so:=so+1;

if (n<2) or (so<>2) then writeln(n,’ khong phai la so nguyen to’)

else if so=2 then writeln(n,’ la so nguyen to’);

Readln

End.