Нахождения элементов массива S (из n элементов), индексы которых являются степенями двойки - QBasic

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

составить блок схему алгоритма нахождения тех элементов массива S(из n элементов), индексы которых являются степенями двойки(1, 2,4,8...)

вообщем схему составлять не нужно. а нужно написать программу в qbasic что-то я пытался, но получается бред. скзали первая часть правильна. а конец фигня..

                    Листинг программы
                
 
                        
                          
                    
CLS
INPUT "n=", n
DIM a(n)
FOR i = 1 TO n
a(i) = INT(RND(1) * 10 + 1)
PRINT a(i)
FOR s = 0 TO 4
IF s = 2 ^ n THEN PRINT a(i)
NEXT s
NEXT i

Решение задачи: «Нахождения элементов массива S (из n элементов), индексы которых являются степенями двойки»

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

i=0
do
print a(2^i)
i=i+1
loop until 2^i>n

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

Объявляется переменная i и инициализируется значением 0.
Запускается цикл do с условием 2^i <= n.
Внутри цикла выводится значение элемента массива a с индексом 2^i.
Значение переменной i увеличивается на 1.
Цикл продолжается до тех пор, пока значение переменной i меньше или равно логарифму по основанию 2 от числа n.
Если значение переменной i равно логарифму по основанию 2 от числа n, то цикл завершается.