Даны натуральные числа n, A1,...,An. Определить количество членов Ak, удовлетворяющих условий

2^k<Аn<к!

Помогите пожалуйста)))

Заводите три переменные - одну для счётчика удовлетворяющих неравенству членов, две другие - принимаете равными 1. На каждом i-том шаге первую переменную умножаете на 2, вторую - на i и производите сравнение.

k=0
for 1 to i
if 2^i<A(i) and A(i)<i then k=k+1
next i

Вот так нельзя?