program compresobis
implicit none
real :: a,b,x
logical:: compreso
Character*3::nn


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
   nn=''
else
   nn='non?'
endif
   write(6,*)x,nn,' e'' compreso tra',a,'b'
end