Tính tổng các ước của n (n <= 10 mũ 12) code pas,c hoặc c++

Uses crt;
var n,s,i: LongInt;
BEGIN
        ReadLn(n); s:= 0; i:= 1;
        while i <= n do
         Begin
                if n mod i = 0 then
                begiN
                        s := s + i;
                        if (n div i <> i) then
                        s := s + (n div i);
                enD;
                        INC(i);
         End;
        Writeln('Tong cac uoc cua',n,'la:',s);
END.