Записать в 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.

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

клинопись

б)имя существительное