Напишите в паскале. в первый день спортсмен пробежал x километров. в каждый последующий день он увеличивал пробег на 15% от предыдущего дня. по данному числу y требуется определить номер дня, в который пробег спортсмена составил не менее y километров.
program raf105;
var x,y,day:real;
begin
write('Сколько спортсмен пробежал в первый день (X): ');
readln(x);
write('Сколько километров он хочет пробежать за день (Y): ');
readln(y);
day:=1;
while x<y do
begin
x:= x+x/100*15;
day:= day+1;
end;
writeln('Спортсмен выполнит цель за ',day,' дн. тренировок');
end.
Программа написана на языке PascalABC