import Control.Applicative

main :: IO ()
main = solve <$> f >>= putStrLn
  where
    f = map read <$> words <$> getLine

solve :: [Int] -> String
solve [x, a, b]
  | abs (x - a) < abs (x - b) = "A"
  | otherwise = "B"
