Решите : лыжник в первый день пробегае a км каждый следущий день он увиличивает расстояние на 5% через сколько дней расстояние удвоится? 24 за это

Var a,s:real;k:integer;
begin
readln(a);
s:=a;
k:=0;
while s<2*a do
 begin
 s:=s*1.05;
 k:=k+1;
 end;
writeln('k = ',k);
end.

Пример:
4
k = 15

В первый день а, во второй 1,05*а, в третий 1,1*а и т.д.
Получается, каждый день коэффициент увеличивается на 0.05.
Нам надо узнать, в какой день будет 2*а.
2 делим на 0.05=40. ответ: через 40 дней.