main = do
    n <- readLn
    print $ foldr solve 0 [a + b + c + d == n | let xs = [0..9] :: [Int], a <- xs, b <- xs, c <- xs, d <- xs]

solve :: Bool -> Int -> Int
solve True cnt = cnt + 1
solve False cnt = cnt