Заполните массив X не более 10 элементов. Сдвинуть вправо на 2 позиции содержимое массива X и заполнить им массив Y — QBasic(Бейсик)

Пример: X(1,2,3,4,5,6)=>Y(1,2,3,4)

dCLS
INPUT "Введите размер массива (не более 10)"; n
PRINT "Введите "; n; " чисел массива:"
DIM x(n), y(n)
FOR i = 1 TO n
    INPUT x(i)
NEXT
FOR i = 1 TO n
    PRINT x(i);
NEXT
PRINT
FOR i = 1 TO n - 2
    y(i) = x(i)
NEXT
FOR i = 1 TO n - 2
    PRINT y(i);
NEXT