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

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