题目描述：给出一个正整数，判断这个数是否是质数。
输入：一个正整数n(1 ≤ n ≤ 10000)。
输出：如果n是质数，输出"YES"；否则，输出"NO"。
输入样例： 10
输出样例： NO
程序：
var 1 : integer; begin read(n); if n = 2 then writeln( 2 ) else if ( 3 ) or (n mod 2 = 0) then writeln('NO') else begin i := 3; while ( 4 ) <= n do begin if n mod i = 0 then begin writeln('NO'); exit; //表示马上跳出函数，这里是主函数，所以可以认为结束程序 end; i := i + 2; end; writeln('YES'); end; end.
