function Tinh_TimSoHoanHao()

clc;

n = input('Nhap vao so n: ');

for i=1:n

    Tong = 0;

    for j=0:i

        if (mod(i,j)==0)

            Tong = Tong + j;

        end

    end

    if(Tong - i == i)

        fprintf ('so hoan hao la: %d

', i)

    end

end