implicit none
integer :: n
integer,allocatable :: a(:)
integer :: i
read *,n
allocate(a(n))
read *,(a(i),i=1,n)

write(6,'(i0)',advance='no') a(n)
if (n == 1)  stop

i = n - 2
do while (i > 0)
   write(6,'(1x,i0)',advance='no') a(i)
   i = i - 2
enddo

i = mod(n,2) + 1
do while (i < n)
   write(6,'(1x,i0)',advance='no') a(i)
   i = i + 2
enddo
stop
end