var a,k,i: integer;
begin
readlnaaa;
k:=2;
for i:=2 to a div 2 do
if a mod i=0 then k:=k+1;
writelnkkk;
end.
var a,k,i: integer;
begin
readlnaaa;
k:=2;
for i:=2 to a div 2 do
if a mod i=0 then k:=k+1;
writelnkkk;
end.