Начав тренировки, лыжник в первый день пробежал А км. Каждый следующий день он увеличивал пробег на 5% от пробега предыдущего дня. Определить, через Как узнать сколько дней его суммарныйпробег достигнет В км. Pascal

program Hello;

var a,b:real; d:integer;

begin

   writeln('Введите проход за первый день. . .');

   readln(a);

   writeln('Введите суммарный проход. . .');

   readln(b);

   d := 1;

   while a < b do begin

                   a := a + a + a*0.05;

                   d := d + 1;

                  end;

   writeln('Потребовалось ' , d , ' дней.');                

end.