Program BT;
Var i,j,t,k,t1,i1,n : longint;
Begin
Write ('a,Cac so hoan hao la : ');
t := 0;
t1 :=0;
For i := 0 to 1000 do
Begin
For j := 1 to i-1 do If i mod j = 0 then t := t +j;
If t = i then Write (i,' ; ');
t := 0;
end;
Writeln;
Write ('b,Cac so do la : ');
For i1 := 0 to 999 do
Begin
n := i1;
While n <> 0 do
Begin
k := n mod 10;
t1 := t1 + k;
n := n div 10;
end;
If t1*t1*t1 = i1 then Write (i1,' ; ');
k := 0;
t1 := 0;
end;
end.

print("Các số hoàn hảo là :")
t=0 
t1=0 
for i in range(0,1001):
    for j in range(1,i):
        if i%j==0:
            t=t+j 
    if t==i :
        print(i)
    t=0 
print("Các số đó là: ")
n=int
k=int
t1=int
for i1 in range(0,1000):
    n=i1
    while n!=0:
        k=n%10
        t1=t1+k 
        n=n//10 
    if t1**3==i1:
        print(i)
    k=0 
    t1=0