Задать одномерный массив, на его основе сформировать двумерный массив - QBasic

Формулировка задачи:

помогите пожалуйста составить программу на языке кубейсик. нужно : задать одномерный массив, на его основе сформировать двумерный массив, такой, чтобы первая строчка совпадала с одномерным массивом а каждая последующая была получена циклическим сдвигом на 1 влево. пример: одномерный массив: 1 2 3 матрица: 1 2 3 2 3 1 3 1 2

Решение задачи: «Задать одномерный массив, на его основе сформировать двумерный массив»

Листинг программы

CLS : INPUT "Kol-vo elementov: ", n
DIM A(n), B(n, n)
  PRINT "Vvedite elementy": PRINT
    '  Заполняем массив
  FOR i = 1 TO n
     PRINT "   Element N" + CHR$(248); RTRIM$(STR$(i));
     INPUT ": ", A(i)
  NEXT: PRINT
    '  Заполняем матрицу + вывод
  FOR iy = 1 TO n
     FOR ix = 1 TO n
     B(ix, iy) = A(((ix + iy - 2) MOD n) + 1)
     PRINT B(ix, iy);
  NEXT: PRINT : NEXT

Объяснение кода листинга программы

Задается вопрос пользователю о количестве элементов массива.
Создается одномерный массив A, размер которого определяется пользователем.
Выводится сообщение «Введите элементы».
В цикле происходит заполнение массива A с помощью ввода с клавиатуры.
Вычисляется размер двумерного массива B.
В цикле происходит заполнение двумерного массива B значениями из массива A.
Выводится двумерный массив B.