Perfect numbers: Difference between revisions

=={{header|Action!}}==

<lang Action!>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</lang>

{{out}}

[https://gitlab.com/amarok8bit/action-rosetta-code/-/raw/master/images/Perfect_numbers.png Screenshot from Atari 8-bit computer]

<pre>

6

28

496

8128

</pre>