25 lines
293 B
Text
25 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
|