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

list n =
  [ (a, b, c, d)
  | a <- [0 .. 9]
  , b <- [0 .. 9]
  , c <- [0 .. 9]
  , d <- [0 .. 9]
  , a + b + c + d == n
  ]

main = do
  n <- readLn
  print $ length $ list n
  eof <- isEOF
  unless eof $ main
