import Control.Monad

fact 0 = 1
fact n = n * fact (n - 1)

solve n r
    | r < 0    = 0
    | r > n     = 0
    | otherwise = (fact n) `div` ( (fact (n - r)) * (fact r) )

main = do
    x <- (read::String -> Integer) <$> getLine
    putStrLn $ show ( solve 31 x ) ++ " " ++ show ( (solve 30 (x-1)) * (2^31 - 1) )