def init(n):
    global ss
    ss = [0 for i in range(n + 1)]
    for i in range(1, n + 1):
        for j in range(i, n + 1, i):
            ss[j] += i

n = 10000
cnt = 0
init(n)
for i in range(1, n + 1):
    if ss[i] == i * 2:
        print(i, end = ' ')

uses crt;

var k: integer;

function shh(n: integer): boolean;

var i,s: integer;

begin

s:=0;

for i:=1 to n-1 do

if n mod i=0 then s:=s+i;

if s=n then shh:=true 

else shh:=false

end;

begin

clrscr;

writeln ('Cac so tu nhien hoan hao be hon 10000 la: '); 

for k:=1 to 9999 do

if shh(k) then write (k:4);

readln;

end.

$#Trumtinhoc$