CLS
INPUT "N=", N
DIM X(N)
DIM Y(N)

FOR i = 1 TO N
PRINT "X["; i; "]=";
INPUT X(i)
NEXT

i = 1

FOR j = 2 TO N STEP 2
Y(i) = X(j)
i = i + 1
NEXT

FOR j = 1 TO N STEP 2
Y(i) = X(j)
i = i + 1
NEXT

PRINT "X: "
FOR i = 1 TO N
PRINT X(i)
NEXT

PRINT "Y: "
FOR i = 1 TO N
PRINT Y(i)
NEXT

END