import           Data.List
import           Control.Applicative
import           Control.Monad
import           Control.Monad.State

main = do
  (a : b : _) <- map (read :: String -> Int) . words <$> getLine
  print $ case a - b of
    n | n > 0     -> n
      | otherwise -> 0
