программа в Visual foxpro

[Марина Володкина]

помогите с решением пожалуйста
Даны натуральные числа n,qпервое....,qэнное.определить количество членов последовательности апервое, ... а энное. удовлетворяющих условию 2^k<a катое <k!
пожалуйста!!!!

[Stilet]

*Описываем К
k=3
*Высчитываем факториал
kfac=1
FOR i=0 TO k
 kfac=kfac*i
ENDFOR

*Создаем таблицу-массив 
CREATE TABLE q (fi numeric(5))
*Наполняем ее
FOR i=0 TO 100 
 APPEND BLANK
 REPLACE Fi WITH 1 + 10000 * RAND( )
ENDFOR
*Выясняем сколько попадает в заданное условие
SELECT COUNT(*) cnt FROM q WHERE fi between 2^k AND kfac nowait
*Выводим результ на рабочую поверхность фокса
?cnt
*Закрываем таблицы
CLOSE DATABASES