RAM

CLS
DIM C, I
INPUT "Input C: ", C
DIM Z(1 TO C), X(1 TO C), Y(1 TO C)
FOR I = 1 TO C
    PRINT "Z("; I; ") = ";
    INPUT "", Z(I)
NEXT I
DIM XI, YI
FOR I = 1 TO C
    IF (I MOD 2 = 0) THEN
        XI = XI + 1
        X(XI) = Z(I)
    ELSE
        YI = YI + 1
        Y(YI) = Z(I)
    END IF
NEXT I
PRINT "X array: "
FOR I = 1 TO XI
    PRINT "X("; I; ") ="; X(I); ";  ";
NEXT I
PRINT
PRINT "Y array: "
FOR I = 1 TO YI
    PRINT "Y("; I; ") ="; Y(I); ";  ";
NEXT I