В Паскаль ABC Бегун в первый день пробежал 5 км, каждый следующий день он пробегал на 10% больше предыдущего. Определить сколько он пробежит на седьмой день и за всю неделю в целом.

Спасибо огромное!!!

Пожалуйста :)

var a, b: real;      i: byte;begina := 5;b := 5;for i := 2 to 7 do begin   a := 1.1 * a;   b := b + aend;writeln ('За седьмой день бегун пробежит ', a,' км');writeln ('За неделю бегун пробежит ', b,' км')end.Можно вместо введения цикла использовать формулы n-ого члена геометрической прогрессии (в данном случае 7-ого) и суммы n членов геометрической прогрессии (в данном случае 7-и).