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.

USES CRT;

Var n: byte;

Function SNT(X: longint): boolean;

var nt: boolean;

k: longint;

begin

nt:=x>1;

for k:=2 to trunc(sqrt(x)) do

if x mod k=0 then

begin

nt:=false;

break

end;

SNT:=nt;

end;

begin

write('Nhap so N='); readln(n);

if SNT(n)=true then writeln(n ,' la so nguyen to.')

else writeln(n,' khong phai so nguyen to.');

readln;

end.