Получить одномерный массив состоящий из 10 элементов в котором каждый следующий элемент получается возведением в квадрат предыдущего элемента. Первый элемент массива создается пользователем- QBasic(Бейсик)

DIM a(9)
CLS
INPUT "Vvedite pervyj el-t:", a(0)
FOR i = 1 TO 9
    a(i) = a(i - 1) * a(i - 1)
NEXT
FOR i = 0 TO 9
    PRINT a(i)
NEXT

Тестирование выполнено в программе QB64 ( Скачать )