program bai_giai;
uses crt;
var A:array[1..1000] of integer;
    n,i,tong,d,j,t:integer;
begin
    clrscr;
    write('Nhap N = ');  readln(n);
    for i:=1 to n do read(A[i]);
    tong:=0; d:=0;
    writeln('So hoan hao co trong day la:');
    for i:=1 to n do
        begin
            t:=0;
            for j:=1 to A[i] div 2 do
                if A[i] mod j=0 then t:=t+j;
            if t=A[i] then
                begin
                    write(A[i],' ');
                    tong:=tong+A[i];
                    d:=d+1;
                end;
        end;
    if d=0 then writeln('Khong co so hoan hao nao') else writeln;
    write('Tong cac so hoan hao vua tim duoc: ',tong);
    readln;       readln;
end.

uses crt;
var i,n,j,t,s:longword;
    a:array[0..1000000] of longword;
begin
    clrscr;
    write('Nhap N = ');readln(n);
    for i:=1 to n do read(a[i]);
    writeln('So hoan hao co trong day so la:');
    for i:=1 to n do
        begin
            t:=0;
            for j:=1 to a[i] div 2 do
                if a[i] mod j=0 then
                     t:=t+j;
            if a[i]=t then
                begin
                    s:=s+t;
                    write(a[i],' ');
                end;
        end;
    if wherex=1 then write('Khong co so hoan hao');
    writeln;
    writeln('Tong cac so hoan hao vua tim duoc: ',s);
readkey;
end.