inRange(I, J, K) :- K > I, K < J.

:- inRange(0, 10, 5), write(yes).
:- inRange(0, 10, -1), write(yes).
:- inRange(0, 10, 11), write(yes).