var n,i,ans: integer;
begin
readln(n);
ans:= 0;
for i:= 1 to n do
if (n mod i)= 0 then ans := ans+i;
writeln(ans);
end.
输入：
25
输出：31