Записать в turbo pascalе начав тренировки, лыжник в первый день пробежал 10км. каждый следующий день он увеличивал пробег на 10% от пробега предыдущего определить: а) в какой день он пробежит больше 20км б) в какой день суммарный пробег за все дни превысит 100км

program ncdkj;

uses crt;

var a,b,p,d,sd:integer;

begin

clrscr;

a:=10;

b:=10;

d:=1;

sd:=1;

p:=10*0,1;

repeat 

a:=a+p;

d:=d+1;

until a>20;

repeat 

b:=b+p;

sd:=sd+1;

s:=s+b;

until s>100;

case sd mod 7 of

0:writeln('сумма 100 км в 7');

1:writeln('сумма 100 км в 1');

2:writeln('сумма 100 км в 2'); И так до шести

case d mod 7 of

0:writeln('20 км в 7');

1:writeln('20 км в 1');

2:writeln('20 км в 2'); И так до шести

readln;

end.

Надеюсь второе  правильно понял, вроде должно работать