main :: IO ()
main = do
  [x, a, b] <- map read . words <$> getLine :: IO [Int]
  let a' = abs $ x - a
      b' = abs $ x - b
  putStrLn $ if a' > b'
                then "B"
                else "A"
                     
