// 質數又稱素數。一個大於1的自然數,除了1和它自身外,不能被其他自然數整除的數叫做質數;否則稱為合數
#Flag := 1;
FOR #I := 2 TO ROUND(SQRT(#N)) DO
IF #N MOD #I = 0 THEN // Statement section FOR
#Flag := 0;
END_IF;
END_FOR;
IF #Flag = 1 THEN
#Result := 'O.K';
ELSE
#Result := 'N.G';
END_IF;
該文源自工控小周