Даны натуральные числа n, a1,…,an, где n≤12. Найти члены ak последовательности a1,…,an, удовлетворяющие условию 2k<ak<k!, и определить их количество.
помогите, пожалуйста!
var
a: array [1..m] of integer;
i,t: integer;
f: LongInt;
// ...
t:=0;
f:=1;
for i:=1 to m do begin
f:= f*i;
if (2*i<a[i]) and (a[i]<f) then begin
WriteLn(i:10,a[i]:10);
Inc(t)
end
end;
WriteLn('Total: ',t)