написать программу с использованием оператора while do
Вот задача
в начале тренировочного периода лыжник во время тренировки пробегал 5 км,каждый день он увеличивал нагрузку на 5%.Рассчитать через какое время нагрузка лыжника во время тренировки превысит 20км

Лучше перепроверить.

var a, b, c, summ, d, den:real;beginwrite('Введите кол-во км начальные: ');readln(a);write('Введите на сколько % увеличивается расстояние каждый день: ');readln(b);write('Введите, до скольки КМ увеличивает расстояние в день лыжник: ');readln(c);den:=0;while a<c do begin  d:=a/100*b; // узнаем, на сколько увеличивается растояние  a:=a+d;  den:=den+1;  end;     writeln(den);end.Написал на Pascal. Вводить можно любые данные ( не только, которые вы дали)