program Tim_so_hoan_hao;
uses Crt;
const
    max = 1000;
var
    N, i, sum, mark : integer;

BEGIN
    clrscr;
    writeln('Cac so hoan hao <1000 la : ');
    for N:=1 to max do
        begin
            sum := 0;
            mark := 0;
            for i:=(N div 2) downto 1 do
                begin
                    if (N mod i = 0) then sum := sum + i;
                    if sum>=N then
                        begin 
                              mark := i;
                              break;
                        end;
                end;
            if mark=1 then writeln(N);
        end;
    readln;
END.

Program sohoanhao;
uses crt;
Var i,n,s,dem:integer;
begin
    writeln('Cac so hoan hao tu 1 den 1000 la: ');
    for n:=2 to 1000 do {kiểm tra lần lượt các số từ 2 đến 1000, nếu em muốn tìm các số hoàn hảo trong khoảng khác thì chỉ cần thay ở đây}
    begin
        s:=0;
        For i:=1 to n-1 do
            If (n mod i) = 0 then s:=s+i;
        If s=n then 
            begin 
               writeln(s);
               dem:=dem+1;
            end; 
    end;
    If dem=0 then write('Ko co so hoan hao') 
             else write('Co tat ca ',dem,' so hoan hao tu 1 den 1000')
end.