12 lines
217 B
Text
12 lines
217 B
Text
DO i = 1, 1E4
|
|
IF( perfect(i) ) WRITE() i
|
|
ENDDO
|
|
END ! end of "main"
|
|
|
|
FUNCTION perfect(n)
|
|
sum = 1
|
|
DO i = 2, n^0.5
|
|
sum = sum + (MOD(n, i) == 0) * (i + INT(n/i))
|
|
ENDDO
|
|
perfect = sum == n
|
|
END
|