спортсмен пробежал 8 км,каждый следующий день он увеличивал дневную норму на 15%

[elsibell]

в первый день спортсмен пробежал 8 км,каждый следующий день он увеличивал дневную норму на 15% от нормы предыдущего дня.через сколько дней он будет пробегать в день более 40 км
есть у мя наброски но как и с чем их сочетать незнаю.n:=8*1.15^(n-1); log[1.15](5)+1; while x:<40;если есть возможность помогите плиз.заранее спасиб

[eoln]

var
  s: real;
  n: integer;
begin
  s := 8;
  n := 1;
  while s <= 40 do
  begin
    n := n+ 1;
    s := s * 1.15;
    writeln(n, ' day   s = ', s:0:5, ' km');
  end;
  writeln('n = ', n);
  readln
end.

[elsibell]

спасибо огромное