import Control.Monad
import System.IO

main = do
    eof <- isEOF
    unless eof $ do
        n <- readLn
        print $ length $ do
            a <- [0 .. 9]
            b <- [0 .. 9]
            c <- [0 .. 9]
            d <- [0 .. 9]
            guard (a + b + c + d == n)
            return ()
        main