ans n = length $ [ (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
    l <- getContents
    let i = map read $ lines l
        o = map ans i
    mapM_ (print) o