import Control.Applicative

main :: IO ()
main = solve <$> readLn >>= print

solve :: Int -> Int
solve n
  | n < 10 = n
  | even n = (n - 10) `div` 20 + 1
  | otherwise = (n - 11) `mod` 20 `div` 2