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

program sum_power;

var n, p, s: integer;

begin

p := 1;

n := 0;

while s < 100000 do

begin

n := n + 1;

p := p * 4;

write (n:4, p:7);

s := s + p;

writeln;

end;

writeln(\'   _________\');

write(n:4, s:7);

writeln();

Writeln(\'   Нужно сложить \', n, \' степеней четверки.\')

end.