Нужна помощь, очень прошу!!! Помогите составить блок-схему: спортсмен тренировался 7 дней, в первый день он пробегает

var s: single;sum: single i: integer;begin s:= 1000; sum:= 0; for i:= 1 to 7 do begin sum:= sum + s; s:= s * 1,1; end; writeln(sum);end. Спортсмен пробегает каждый день на 10% больше, значит он пробегает 110% от расстояния предыдущего дня. Т.е. для расчета нового расстояния, нужно предыдущее умножить на \"1,1\". В переменной \"s\" храниться расстояние, пробегаемое в текущий день. Изначально это расстояние равно \"1000\". В переменной \"sum\" накапливается расстояние общего пробега за 7 дней. Изначально эта сумма равна \"0\". В цикле, который повторяется 7 раз, вначале к общему пробегу прибавляется расстояние, пробегаемое за сегодня. Затем рассчитывается расстояние, которое будет пробегать спортсмен на следующий день.