Mode:
Duration:
1
2
3
4
5
6
7
8
9
10
11
12
13
PROGRAM PrimeCheck;
INTEGER NUMS(3) := (7,10,13);
INTEGER N,I;
BOOLEAN ISPRIME;
FOR N := 1 TO 3 DO
BEGIN
ISPRIME := TRUE;
FOR I := 2 TO NUMS(N)-1 DO
IF NUMS(N) MOD I = 0 THEN ISPRIME := FALSE;
END;
PUT(NUMS(N) || IF ISPRIME THEN ' is Prime' ELSE ' is Not Prime');
END;Coding works best on desktop or with an external keyboard.