import Control.Monad
import Control.Applicative

solver :: Int -> Int
solver num = length xs
  where xs = [(a,b,c,d) | a <- [0..9], b <- [0..9], c <- [0..9], d <- [0..9], a + b + c + d == num]


main :: IO()
main = do
  contents <- map (read :: String -> Int) . lines <$> getContents
  mapM_ print $ map solver contents