В Паскаль ABC Бегун в 1-ый день пробежал 5 км, каждый

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