Cho mik xin nhất :))
Program So_hoan_chinh;
Uses crt;
VAR
BEGIN
clrscr;
Write('Nhap n:');Readln(n);
write('Cac so hoan chinh nho hon ',n,' la: ');
For i:= 1 to n-1 do
For j:= 1 to i-1 do
Begin
If n mod i = 0 then S:= S+j;
If S=i then Write(i:5); End;
Readln
END.