Спортсмен в первый день пробежал 8 км. Каждый следующий день он увеличивал дневную норму на 10% от нормы предыдущего дня. Определить, через Как узнать сколько дней спортсмен пробежит суммарный путь 40 км. Задание в Pascal

var a,s: real;
    i: integer;
begin
  a:=8;
  s:=a;
  i:=1;
  repeat
    i:=i+1;
    a:=a*1.1;
    s:=s+a;
  until s>=40;
  writeln(i);
//  через геометрическую прогрессию
//  s:=ln(1.5)/ln(1.1);
//  if frac(s)>0 then s:=int(s)+1;
//  writeln(s);
end.