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.