PROGRAM ARRAY_CONCAT

DIM A[5],B[5],C[10]

!
! for rosettacode.org
!

BEGIN
  DATA(1,2,3,4,5)
  DATA(6,7,8,9,0)

  FOR I=1 TO 5 DO  ! read array A[.]
    READ(A[I])
  END FOR
  FOR I=1 TO 5 DO  ! read array B[.]
    READ(B[I])
  END FOR

  FOR I=1 TO 10 DO ! append B[.] to A[.]
    IF I>5 THEN
       C[I]=B[I-5]
     ELSE
       C[I]=A[I]
    END IF
    PRINT(C[I];)   ! print single C value
  END FOR

  PRINT

END PROGRAM