2017年10月05日普及组 约数

var
n,i,t:longint;
begin
assign(input,'bri.in');
reset(input);
assign(output,'bri.out');
rewrite(output);
read(n);
t:=0;
for i:=1 to n do
if n mod i=0 then t:=t+n div i;
write(t);
close(input);
close(output);
end.