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

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.

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