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

Question

Начав тренировки, спортсмен в первый день пробежал 10 км. Каждый день он увеличивал дневную норму на 10% нормы предыдущего дня. Какой суммарный путь пробежит спортсмен за 7 дней?
Составьте программу и блок схему.

Answer 1

Var
    i: integer;
    d, s: real;

begin
    d := 10;
    s := d;
    
    for i := 2 to 7 do
    begin
        d := d * 1.1;
        s := s + d;
    end;
    
    writeln(s);
end.

Блок-схему не умею. Но эта программа хоть работает и правильно

---