var   
n,i,ans:integer; 
function gcd(a,b :integer) : integer; 
begin
  if a mod b=0    
then gcd :=0; 
  else gcd := gcd(b,a mod b); 
end; 
 begin
  readln(n);
  ans := 0;
  for i:=1 to n do
   if gcd(n,i)=i   
  then ans := ans + 1; 
 writeln(ans); 
end. 
输入：120
输出：16