uses crt;
var n,i,j,s,d: integer;
    a: array[1..100] of integer;
begin
clrscr;
    readln(n);
    for i:=1 to n do begin
        readln(a[i]);
        if a[i] mod 2<>0 then d:=d+1;
    end;
    write('Day so hoan hao la: ');
    for i:=1 to n do begin
        for j:=1 to a[i]-1 do if a[i] mod j=0 then s:=s+j;
        if s=a[i] then write(a[i],' ');
    end;
    writeln;
    writeln('Co ',d,' phan tu le trong day');
    readln
end.

uses crt;

var A : array [1 .. 100] of integer;

    i, N, j, d : integer;

function HH(x : integer) : integer;

begin

    HH := 0;

    for i := 1 to x - 1 do

        if x mod i = 0 then HH := HH + i;

end;

begin

clrscr;

write('Nhap so N = '); readln(N);

write('Nhap day gom ', N ,' so : ');

d := 0;

for j := 1 to N do

    begin

        read(A[j]);

        if A[j] mod 2 <> 0 then d := d + 1;

    end;

write('Cac so hoan hao : ');

for j := 1 to N do

    if A[j] = HH(A[j]) then  write(A[j],' ');

writeln; write('Day co ', d ,' so le');

readln

end.