solve :: Int -> Int
solve n = foldl (+) 0 (map (\m -> if n == m then 1 else 0) [w + x + y + z | w <- ns, x <- ns, y <- ns, z <- ns])
    where ns = [0..9]

main :: IO ()
main = interact (unlines . map (show . solve . read) . lines)