Сформировать новый массив из элементов исходного - QBasic

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

Задан массив натуральных чисел размером 30 элементов. Опишите на русском языке или одном из языков программирования алгоритм получения из него другого массива, который будет содержать в каждой своей ячейке с индексом i сумма квадратов всех натуральных чисел от единицы до значения i-м элементе исходного массива.

Решение задачи: «Сформировать новый массив из элементов исходного»

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

CLS
DIM a(30), b(30)
FOR i = 1 TO 30
INPUT "vvedite element"; a(i)
NEXT
FOR i = 1 TO 30
s = 0
FOR j = 1 TO a(i)
s = s + j ^ 2
NEXT
b(i) = s
NEXT
FOR i = 1 TO 30
PRINT a(i);
NEXT
PRINT
PRINT "new massiv"
FOR i = 1 TO 30
PRINT b(i);
NEXT

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

Объявляются два массива a(30) и b(30)
Задаются начальные значения для элементов массива a с помощью цикла FOR и оператора INPUT
Выполняется вычисление квадрата каждого элемента массива a с помощью цикла FOR и оператора ^
Результат вычислений записывается в массив b с помощью оператора NEXT
Выполняется вывод элементов массива a с помощью цикла FOR и оператора PRINT
Выполняется вывод сообщения new massiv
Выполняется вывод элементов массива b с помощью цикла FOR и оператора PRINT