Определить, через сколько дней спортсмен будет пробегать больше 20 км

program SportA;
var d:integer;
s, p:real;
begin
s:=10;
p:=1;
while s<100 do
begin
s:=s+1;
end;
writeln('100 километров будет через - ', s:3:3);
readln;
end.

var d,k:integer;
    s,p:real;
begin
p:=10; //норма в 1й день
s:=10; //путь за 1 день
d:=1;//1 день
k:=0;//20 еще не пробежал
while s<=100 do
 begin
  d:=d+1;
  p:=p*1.1;
  s:=s+p;
  if d=7 then writeln('На седьмой день пробежит ',p:0:3,' км');
  if(s>=20)and(k=0)then
   begin
    writeln('20 км пробежит за ',d,' дн. s=',s:0:3,' км');
    k:=1;
   end;
 end;
writeln('100 километров пробежит за ',d,' дн. s=',s:0:3);
end.

var d,k:integer;
    s,p:real;
begin
p:=10; //норма в 1й день
s:=10; //путь за 1 день
d:=1;//1 день
k:=0;//20 еще не пробежал
writeln('Пробежал в 1 день 10 км, всего=10 км');
while s<=100 do
 begin
  d:=d+1;
  p:=p*1.1;
  s:=s+p;
  writeln('Пробежал в ',d,' день ',p:0:2,' км, всего=',s:0:2,' км');
  if d=7 then writeln('На седьмой день пробежит ',p:0:3,' км');
  if(s>=20)and(k=0)then
   begin
    writeln('20 км пробежит за ',d,' дн. s=',s:0:3,' км');
    k:=1;
   end;
 end;
writeln('100 километров пробежит за ',d,' дн. s=',s:0:3);
end.

program GP;
 
const
  b1 = 10.0;
  q  = 1.1;
 
  function power(a, b: real): real;
  begin
    power := exp(b * ln(a));
  end;
 
var
  n: integer;
begin
  n := trunc(1 + ln(1 - 100 * (1 - q) / b1) / ln(q));
  writeln('1. Через ', n, ' дней спортсмен пробежит суммарный путь более 100 км.');
  n := trunc(1 + 1 + (ln(20 / b1) / ln(q)));
  writeln('2. Через ', n, ' дней спортсмен будет пробегать более 20 км.');
  writeln('3. На 7-й день спортсмен пробежит ', b1 * power(q, 6): 0: 1, ' км');
end.