INCLUDE D:TERMINAL.LIB
CONST SIZE=8190,FALSE=0,TRUE=1
BYTE FLAGS[SIZE+1]
INT PRIME,COUNT,K,I
STRING A$[50]
MAIN( )
BEGIN
WRTLN("PRIMES")
COUNT=0
FOR I=0 TO SIZE DO
FLAGS[I]=TRUE
NEXT
FOR I=2 TO SIZE DO
IF FLAGS[I] THEN
PRIME=I
K=I+PRIME
WHILE K<= SIZE DO
FLAGS[K]=FALSE
K=K+PRIME
ENDWHILE
COUNT=COUNT+1
ENDIF
NEXT
WRITE(COUNT) WRTLN(" PRIMES")
A$=INPUT$()
END