var d, n, s: integer;
begin
  readln(n);
  s:=0;
  d:=1;
  while(d<=n) do
  begin
    if(n mod d = 0) then
    begin
      s:=s+d;
      writeln(d);
    end;
    d:=d+1;
  end;
  writeln(s);
end.