module Main where

main :: IO()
main = do
  inputs <- map read . words <$> getLine
  print . solve $ inputs

solve :: [Integer] -> Integer
solve [x, t]
  | x >= t    = x - t
  | otherwise = 0
solve _ = error "invalid inputs"
