main = do
  input <- getLine
  let n = read input :: Int
  print $ length $ [(a, b, c, d) | a <- [0..9],
                                   b <- [0..9],
                                   c <- [0..9],
                                   d <- [0..9],
                                   a + b + c + d == n]