program compreso
implicit none

real ::x,y,z

write(6,*)' dammi tre numeri x,y,z'
read(5,*)x,y,z

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