import Control.Applicative
import Control.Monad

main :: IO ()
main = do
  ls <- map read . lines <$> getContents
  forM_ ls $ print . solve

solve :: Int -> Int
solve n = sum [1 | a <- [0..9], b <- [0..9], c <- [0..9], d <- [0..9], a+b+c+d == n]