Mode:
Duration:
1
2
3
4
5
6
7
8
9
10
11
12
BEGIN
ARRAY nums[3]; nums[0]:=7; nums[1]:=10; nums[2]:=13;
INTEGER n,i; BOOLEAN isPrime;
FOR n IN nums DO
isPrime := TRUE;
FOR i := 2 STEP 1 UNTIL n-1 DO
IF n MOD i = 0 THEN isPrime := FALSE END;
END;
OutInt(n,0);
IF isPrime THEN OutText(" is Prime") ELSE OutText(" is Not Prime") END; OutImage;
END;
ENDCoding works best on desktop or with an external keyboard.