Viết chương trình tìm các số hoàn chỉnh nhỏ hơn n (Với n được nhập từ bàn phím).

Var S, n, i, j: longint;
Begin
    Write(‘Nhap so n =’); readln(n);
    For i:=1 to n do
       Begin
           S:=0;
           For j:=1 to i do if i mod j = 0

                then S:=S+j;
           if S = 2*i

           then write(i:6,’,’);
       end;
    readln
end.