2017年10月05日普及组 约数

分析
水题一道，5分钟搞定。

程序：

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.