solve :: Int -> Int -> String
solve a b
    | abs(a - b) `mod` 2 == 1 = "IMPOSSIBLE"
    | otherwise = show $ (a + b) `div` 2


main :: IO()
main = do
    line <- getLine
    let a:b:_ = map read $ words line :: [Int]
    putStrLn $ solve a b