IDENTIFICATION DIVISION.
PROGRAM-ID. 148B.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 INP PIC X(300).
01 N   PIC 9(3).
01 S   PIC X(100).
01 T   PIC X(100).
01 ST  PIC X(200).
01 I   PIC 9(3).
*>
PROCEDURE DIVISION.
  ACCEPT N.
  ACCEPT INP.
  UNSTRING INP DELIMITED BY ' '
      INTO S T.
  PERFORM VARYING I FROM 1 BY 1 UNTIL I > N
    MOVE S(I:1) TO ST(I * 2 - 1:1)
    MOVE T(I:1) TO ST(I * 2    :1)
  END-PERFORM.
*>
  DISPLAY ST(1:N * 2).
*>
  STOP RUN.
