Nếu có lỗi thì bạn nói mình nhé. ^^

program Hello;
uses crt;
var n,s,i:integer;
begin
    clrscr;
    Write('n= ');
    readln(n);
    for i:=1 to n-1 do
        if (n mod i = 0) then
            begin
                s:=s+i;
                Write(i,' ');
            end;
        if n = s then
            Write('| ', n, ' la so hoan chinh.');
    if n<>s then
        Write('| ',n , ' khong la so hoan chinh')
end.

program hoan_chinh;
uses crt;
var n,i,S:integer;
begin
    clrscr;
    write('Nhap so: ');  readln(n);
    S:=0;
    for i:=1 to n-1 do
        if n mod i=0 then
            begin
                write(i,' ');
                S:=S+i;
            end;
    writeln;
    writeln('=> Tong cac uoc la: ',S);
    if S=n then write('=> YES') else write('=> NO');
    readln;
end.

Kết quả: hình