program Intervallo
implicit none

real :: x1,x2,x0


write(6,*)'Dammi 3 numeri (x1,x2,x0)'
read(5,*)x1,x2,x0
! il doppio test in quanto non sappiamo se
! x1 e x2 sono ordinati
if((x0>=x1.and.x0<=x2).or.(x0<=x1.and.x0>=x2))then
   write(6,*) 'x0 e'' contenuto nell''intervallo'
else
   write(6,*) 'x0 NON e'' contenuto nell''intervallo'
endif


end program