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