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

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-и).