{-# OPTIONS_GHC -Wall -Werror #-}

import System.IO

main :: IO ()
main = do
  end <- isEOF
  if end
     then return ()
     else do
       n <- getLine
       print $ length [(a, b, c, d) | a <- [0..9], b <- [0..9], c <- [0..9], d <- [0..9], a + b + c + d == (read n :: Int)]
       main