import Control.Applicative
main = do
  ns <- map (read :: String -> Int) . lines <$> getContents
  mapM print . map solve $ ns
  where solve n = length . filter ((==) n) $ [a + b + c + d| a <- [0..9], b <- [0..9], c <- [0..9], d <- [0..9]]