program phuongt;
uses crt;
  type A= array[1..500] of integer;
  var n: integer;
        K: A;
function kt(B: A): integer;
  var i, j, d, s, t: integer;
begin
        for i:=1 to n do
        begin
                write('A[', i, '] = '); readln(B[i]);
        end;
        d:=0;
        for i:=1 to n do
        begin
                s:=0;
                for j:=1 to B[i] do if B[i] mod j = 0 then s:=s+1;
                if s=2 then d:=d+1;
        end;
        writeln('Co ', d, ' so nguyen to trong day');
        t:=0;
        for i:=1 to n do
        begin
                s:=0;
                for j:=1 to B[i]-1 do if B[i] mod j = 0 then s:=s+j;
                if s=B[i] then t:=t+s;
        end;
        write('Tong cac so hoan hao co trong day: ', t);
end;
begin
        clrscr;
        write('Nhap n = '); readln(n);
        kt(K);
        readln
end.