Попробуй поворочать этот вариант; не гарантирую, что он совсем уж правильный:

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.