Program sohoanhao;

Var

      A:array[1..1000] of longint;

      N,i,j,S:longint;

Begin

        write('Nhap so phan tu cua day: '); readln(n);

        for i:=1 to n do readln(A[i]);

        for i:=1 to n do

        Begin

              S:=0;

              For j:=1 to A[i] div 2 do if A[i] mod j=0 then S:=S+j;

              if S=A[i] then write(A[i],' ');

       End;

       Readln;

End.

program baigiai;
uses crt;
var n,i,j,t:longint;a:array[1..1000]of longint;
begin
 clrscr;
  write('n=');readln(n);
  for i:=1 to n do
        begin
         write('a[',i,']=');readln(a[i]);
        end;
  write('cac so hoan hao cua day tren la: ');
  for i:=1 to n do
        begin
         t:=0;
         for j:=1 to a[i]-1 do if(a[i] mod j=0)then t:=t+j;
         if(t=a[i])then write(a[i],' ');
        end;
 readln;
end.

đây nhé bạn cho mình xin ctlhn ạ