var a,k,i: integer;
begin
readln(a);
k:=2;
for i:=2 to a div 2 do
if a mod i=0 then k:=k+1;
writeln(k);
end.
var a,k,i: integer;
begin
readln(a);
k:=2;
for i:=2 to a div 2 do
if a mod i=0 then k:=k+1;
writeln(k);
end.