Дан произвольный массив А(20).Подсчитать, сколько элементов массива с номерами 1,2,4,8… имеют значение,меньшее 0.25 — QBasic(Бейсик)

DIM a(20)
FOR i = 1 TO 20
    a(i) = RND(1) / 2
NEXT
PRINT "massiv"
FOR i = 1 TO 20
    PRINT a(i); " ";
NEXT
k = 1
PRINT
DO
    IF a(k) < .25 THEN m = m + 1: PRINT "k="; k; "element="; a(k)
    k = k * 2
LOOP UNTIL k > 20
PRINT
PRINT "takih elementov="; m