import System.IO

main :: IO()
main = do
  end <- isEOF
  if end then return()
  else do
    n <- readLn
    let xs = [a+b+c+d | a<-[0..9],b<-[0..9],c<-[0..9],d<-[0..9]] :: [Int]
        f x = length $ filter (==x) xs
        in putStrLn . show $ f n
    main