Создать массив A(10), состоящий из случайных чисел от 1 до 9. Вывести массив. Увеличить все элементы массива в 10 раз. Вывести полученный массив в прямом и обратном порядке- QBasic(Бейсик)

CLS
RANDOMIZE TIMER
n = 10
DIM a(n)
FOR i = 1 TO n
    a(i) = FIX(RND * 9 + 1)
NEXT
PRINT "massiv"
FOR i = 1 TO n
    PRINT a(i);
NEXT
FOR i = 1 TO n
    a(i) = a(i) * 10
NEXT
PRINT
PRINT "new massiv 1-n"
FOR i = 1 TO n
    PRINT a(i);
NEXT
PRINT
PRINT "new massiv n-1"
FOR i = 1 TO n
    PRINT a(n - i + 1);
NEXT