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