program ch1103
implicit none
integer , dimension(-5:5) :: x
integer :: i
  x(-5:-1) = -1
  x(0)     =  0
  x(1:5)   =  1
  do i=-5,5
    print *,' ',i,' ',x(i)
  end do
end program ch1103