Дана линейная таблица, состоящая из 20 элементов. Требуется определить, сколько элементов таблицы с номером 1, 2, 4, 8, 16, … имеют значения, меньшие 0.25.- QBasic(Бейсик)

DIM A(20) AS SINGLE
   CLS : PRINT "Ishodnaya tablica"
   RANDOMIZE TIMER
   FOR i = 1 TO 20
    A(i) = RND
    PRINT A(i);
   NEXT: 
n=1
for i=1 to 5   
IF A(n) < .25 THEN k = k + 1
n=n*2
next
   PRINT "Elementov < .25 :"; k