import Control.Applicative

main = do
  [n,a,b] <- map read . words <$> getLine :: IO [Int]

  putStrLn $ solve n a b 0

  where
    solve n a b 0 = if a+1 == b then if a == 1 then "Borys" else solve n (a-1) b 1 else solve n (a+1) b 1
    solve n a b 1 = if b-1 == a then if b == n then "Alice" else solve n a (b+1) 0 else solve n a (b-1) 0
