program compreso
implicit none

real ::a,b,x

write(6,*)' dammi due numeri'
read(5,*)a,b
write(6,*)' dammi x'
read(5,*)x

if(a<x.AND.x<b) then
   write(6,*)'x e''  compreso tra ',a," e ",b
else
   write(6,*)'x non e'' compreso tra ',a," e ",b
endif
end program compreso