program compresobis
implicit none
real :: a,b,x
logical:: compreso

write(6,*)'dammi due numeri a b'
read(5,*)a,b
write(6,*)'dammi x'
read(5,*)x
if (a<b)then
   compreso=x<b.AND.x>a
else
   compreso=x>b.AND.x<a
endif
if (compreso)then
   write(6,*)'x e'' compreso tra a e b'
else
   write(6,*)'x non e'' compreso tra a e b'
endif
end