Program Task3(output);
    var n, b, i: integer;
begin
    readln(n);

    b := n div 2;

    for i := 1 to b do
        if n mod i = 0 then
            writeln(i);

end.