Pascal :
var n,i,s:longint; begin readln(n); for i:=1 to n do if n mod i=0 then s:=s+i; writeln(s); end.
By signing up a 算道OJ universal account, you can submit code and join discussions in all online judging services provided by us.
Using your 算道OJ universal account
