
foo :: Int -> Int -> String
foo x y
  | even (x + y) = show $ (x+y) `div` 2
  | otherwise = "IMPOSSIBLE"

main = do
  xy <- map read . words <$> getLine :: IO [Int]
  putStrLn $ foo (head xy) (last xy)


