Начав тренировки, спортсмен пробежал в первый денек 10 км. В каждый

program runner;  

var  

n,sum:Real;  

i:Integer;  

begin  

   n:=10;  

   sum:=0;  

   i:=0;  

   for i:=1 to 11 do begin

       sum := sum + n;

       writeln(n:3:8);

       n := n * 1.1;  

   end;

   writeln(sum:3:2);  

end.

Тело аннотации writeln можно поменять на обыденный writeln(n) и writeln(sum) соответственно, но тогда будет вывод неприглядный

Пояснение: n - количество км, которые пробегает бегун в текущий день (с самого начала одинаковы изначальным 10); sum - сумма; i - итератор цикла, тут просто чтоб было конкретно 11 итераций - по одной на денек.

В каждой итерации мы добавляем к сумме текущий "пробег" (на первой итерации пробег инициализирован как 10, так что никаких операций создавать не надо), выводим пробег на экран, после чего умножаем его на 110%.

Повторяем 11 раз.

Выводим сумму на экран.