viết chương trình tìm các số hoàn chỉnh nhỏ hơn n

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.