判断质数
题目描述:
给出一个正整数，判断这个数是否是质数。
输入:
一个正整数n(1 ≤ n ≤ 10000)。
输出:
如果n是质数，输出”YES”；否则，输出”NO”。
输入样例:
10
输出样例:
NO
程序：

var
n,i : integer;
begin
read(n);
if n = 2 then writeln( 'YES' )
else if ( n=1 ) or (n mod 2 = 0) then writeln('NO')
else begin
i := 3;
while i * i <= n do begin
if n mod i=0 then begin
writeln('NO'); exit;
end;
i := i + 2;
end;
writeln('YES');
end;
end.