main = do
  let f n = let x = read n::Int in
              if x > 36 then show 0
                else
                  let i = if x >= 19 then 36-x else x in
                  show $ (i+3)*(i+2)*(i+1) `div` 6 - max (2*(i-9)*(i-8)*(i-7) `div` 3) 0

  putStrLn . unlines . map f . lines =<< getContents