var g,f:text;
    ct,n,i:longint;
BEGIN
assign(f,'ciur.in');
reset(f);
readln(f,n);
close(f);
ct:=0;
for i:=1 to n do
if n mod i = 0 then ct:=ct+1;
assign(g,'ciur.in');
rewrite(g);
if ct = 0 then
writeln(g,-1)
else
writeln(g,ct);
close(f);



END.