*Không mảng:

uses crt;
var n,i,d,s:longint;
begin
   clrscr;
   write('Nhap n: '); read(n);
   for i:=1 to n div 2 do 
      begin
         if n mod i=0 then inc(s,i);
         if s=n then inc(d);
      end;
   writeln('Co ',d,' so hoan hao');
   readln
end.

*Có mảng:

uses crt;
var n,i,j,d,s:longint;a:array[1..1000000] of longint;
begin
   clrscr;
   write('Nhap n: '); readln(n);
   for i:=1 to n do 
      begin
         s:=0;
         write('Nhap phan tu thu ',i,': '); read(a[i]);
         for j:=1 to a[i] div 2 do if a[i] mod j=0 then inc(s,j);
         if s=a[i] then inc(d);
      end;
   writeln('Co ',d,' so hoan hao');
   readln
end.

var a:array[1..100] of longint;

      n,i,d,tong,j:longint;

begin

read(n);

for i:=1 to n do read(a[i]);

for i:=1 to n do

begin

tong:=0;

for j:=1 to a[i]-1 do

if a[i] mod j=0 then tong:=tong+j;

if tong=a[i] then d:=d+1;

end;

write('so so hoan hao trong day la ',d);

end.

Muốn đọc kết quả ấn đồng thời 2 phím alt+f5 nhé :)