import Data.String

main = do
        x <- getLine
        if null x
          then return ()
          else do
            print $ solve (read x :: Int)
            main

range :: [Int]
range = [0..9]

allList :: [[Int]]
allList = [[a, b, c, d] | a<-range, b<-range, c<-range, d<-range]

solve :: Int -> Int
solve n = length  [y | y<-allList, (foldr (+) 0 y) == n]