Элементы заданного массива B(n) перепишите в новый массив A(n) в обратном порядке — QBasic(Бейсик)

CLS
INPUT n
DIM b(n)
FOR i = 1 TO n
b(i) = INT(201 * RND(1) - 100)
PRINT b(i);
NEXT i
PRINT
DIM a(n)
FOR i = 0 TO n - 1
a(i) = b(n - i)
PRINT a(i);
NEXT i