program OE1G
    implicit none
    integer(8)::n,i
    integer(8),allocatable,dimension(:)::A

    read(5,*)n
    allocate(A(n))
    read(5,*)(A(i),i=1,n)

    if(mod(n,2)==0)then
        write(*,fmt='(I0)',advance='no')A(n)
        do i=1,N/2-1
            write(*,fmt='(I2)',advance='no')A(n-2*i)
        end do

        do i=1,N/2
            write(*,fmt='(I2)',advance='no')A(2*i-1)
        end do

        print'(A)',""
    else
        write(*,fmt='(I0)',advance='no')A(n)
        do i=1,N/2
            write(*,fmt='(I2)',advance='no')A(n-2*i)
        end do

        do i=1,N/2
            write(*,fmt='(I2)',advance='no')A(2*i)
        end do

        print'(A)',""
    end if
    
end program OE1G