В массиве из 20 элементов определить сумму элементов с нечетными индексами, минимальный элемент. Построить новый массив из элементов квадрат которых больше q- QBasic(Бейсик)

cls
dim a(20)
randomize timer
for i = 1 to 20 
a(i)=rnd(1)*50
next i
for i = 1 to 19 step 2
s=s+a(i)
next i
mi=a(1)
for i = 1 to 20 
if mi>a(i) then mi=a(i)
next i
? mi
input q
for i = 1 to 20
if a(i)^2>q then ? a(i);
next i