Начав тренировки, спортсмен в первый день пробежал 10 км. Каждый день он увеличивал дневную норму на 15% нормы предыдущего дня. За сколько дней спортсмен пробежит 30 км. (Паскаль)

Примерно вот так:

var dist: real;

days: integer;

begin

   dist:= 10;

   days:= 0;

   while dist < 30 do

   begin

       dist:= dist * 1.15;

       days:= days + 1;

   end;

   writeln(days);

end.

Программа выводит одну цифру - количество дней.