main :: IO ()
main = do
    n <- read <$> getLine
    print $ solve n

solve :: Int -> Int
solve n = length $ divisor n (floor $ sqrt $ fromIntegral n)

divisor :: Int -> Int -> [(Int,Int)]
divisor n 0 = []
divisor n i = if n `mod` i == 0
                then if i^2 /= n then (n `div` i,i) : (i,n `div` i) : divisor n (i-1) else (i,n `div` i) : divisor n (i-1)
                else divisor n (i-1)