Mode:
Duration:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
D N S 5I 0 INZ(13)
D ISPRIME S 1A INZ('Y')
D I S 5I 0
C *ENTRY PLIST
C PARM
C FOR I = 2 TO N-1
C IF N MOD I = 0
C ISPRIME = 'N'
C LEAVE
C ENDIF
C ENDFOR
C IF ISPRIME = 'Y'
C WRITE 'Prime'
C ELSE
C WRITE 'Not Prime'
C ENDIFCoding works best on desktop or with an external keyboard.