import Control.Applicative
import Control.Monad
import Data.List
import Data.Ratio
import Text.Printf
import System.IO

untilEOF :: IO () -> IO ()
untilEOF x = do
  e <- isEOF
  unless e $ x >> untilEOF x

main :: IO ()
main = untilEOF $ do
  n <- readLn
  print $ solve n

solve :: Int -> Int
solve n = length $ 
  [ (a,b,c,d) | (a,b,c,d) <- liftM4 (,,,) [0..9] [0..9] [0..9] [0..9]
  , a + b + c + d == n ]

