сколько натуральных степеней четверки надо сложить, чтобы полученная сумма стала шестизначной? Pascal

var i,n:real;beginwhile n<100000 do  begin  i:=i+1;  n:=n+power(4,i);  end;writeln('Ответ: ',i)end.