program prob2
    implicit none
    integer :: x,a,b
    read(*,*) x,a,b
    if(abs(x-a) > abs(x-b))then
        write(*,*) "B"
    else
        write(*,*) "A"
    end if

    stop
contains
end program prob2