13 lines
168 B
Text
13 lines
168 B
Text
func perf n .
|
|
for i = 1 to n - 1
|
|
if n mod i = 0
|
|
sum += i
|
|
.
|
|
.
|
|
return if sum = n
|
|
.
|
|
for i = 2 to 10000
|
|
if perf i = 1
|
|
print i
|
|
.
|
|
.
|