combinations n = [[a,b,c,d] |a<-[0..9],
                           b<-[0..9],
                           c<-[0..9],
                           d<-[0..9],
                           a+b+c+d==n ]
main = do
  n <- readLn
  print $ length $ combinations n