program ch1108
implicit none
integer :: i
integer , dimension(1:10) :: x=(/(i,i=1,10)/)
integer , dimension(1:5)  :: odd=(/(i,i=1,10,2)/)
integer , dimension(1:5)  :: even
  even=x(2:10:2)
  print *,' x'
  print *,x
  print *,' odd'
  print *,odd
  print *,' even'
  print *,even
end program ch1108