import System.IO

combinations :: t -> [[t]]
combinations n = [[a,b,c,d] |a<-[0..9],
                             b<-[0..9],
                             c<-[0..9],
                             d<-[0..9],
                             a+b+c+d==n ]
main :: IO ()
main = do
  n <- getLine
  eof <- isEOF
  if eof then return ()
         else do
           print $ length $ combinations (read n)
           main