24 lines
293 B
Text
24 lines
293 B
Text
PROC Main()
|
|
DEFINE MAXNUM="10000"
|
|
CARD ARRAY pds(MAXNUM+1)
|
|
CARD i,j
|
|
|
|
FOR i=2 TO MAXNUM
|
|
DO
|
|
pds(i)=1
|
|
OD
|
|
FOR i=2 TO MAXNUM
|
|
DO
|
|
FOR j=i+i TO MAXNUM STEP i
|
|
DO
|
|
pds(j)==+i
|
|
OD
|
|
OD
|
|
|
|
FOR i=2 TO MAXNUM
|
|
DO
|
|
IF pds(i)=i THEN
|
|
PrintCE(i)
|
|
FI
|
|
OD
|
|
RETURN
|