Определите, количество чисел K, для которых последующая программка выведет такой же

Определите, количество чисел K, для которых следующая программка выведет таковой же результат, что и для K = 45:

var i, k: integer;

function F(x:integer):integer;

begin

if x lt; 2 then

F:= 1

else F:= 2*F(x-1) + F(x-2);

end;

begin

i := 0;

readln(K);

while F(i) lt; K do

i:=i+1;

writeln(i);

end.
Помогите решить, пожалуйста. необходимо расписать