program array13
    implicit none
    integer, dimension(5) :: numbers = [5, 4, 2, 1, 3]
end program
