{-# LANGUAGE ScopedTypeVariables, LambdaCase #-}

import qualified Data.List as List
import qualified Data.Set as Set

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