import System.IO
import Control.Monad
import Data.Function
main = do
  fix $ \loop -> do
    eof <- isEOF
    unless eof $ do
      n <- readLn
      print $ length [()| x <- [0..9]
                          , y <- [0..9]
                          , z <- [0..9]
                          , w <- [0..9]
                          , x + y + z + w == n]
      loop