怎么用pascal 确定某个数是否是素数

一个简易版的

function isprime(n:integer):boolean;
var i:integer;
begin
for i:=2 to n-1 do
begin
if i*i>n then break;
if n mod i =0 then
begin
isprime:=false;
exit;
end;
end;
isprime:=true;
end;

program ss;
var i,n,a:integer;
begin
read(n);a:=0;
for i:=2 to n-1 do
begin
if n mod i =0 then
begin
a:=1;
end;
end;
if a=0 then write('YES');
else write('NO');
end.