Определить пробег лыжника за второй, третий день - Pascal ABC

Формулировка задачи:

Начав тренировки, лыжник в первый день пробежал 10 км. Каждый следующий день он увеличивал пробег на 10% от пробега предыдущего дня. Определить: Пробег лыжника за второй, третий, …, десятый дни тренировок; Какой суммарный путь он пробежал за первые 7 дней тренировок. pascal

Решение задачи: «Определить пробег лыжника за второй, третий день»

Листинг программы

var
p,s:double;
i:integer;
begin
p:=10;
for i:=1 to 10 do
  begin
  if i<=7 then
    s:=s+p;
  if i>1 then
    writeln(i,'-',p:0:2);
  p:=p*1.1;
  end;
writeln('total - ',s);
end.

Объяснение кода листинга программы

В данном коде переменной p присваивается значение 10. Затем в цикле for происходит увеличение значения переменной s на значение переменной p при условии, что значение переменной i меньше или равно 7. Если же значение переменной i больше 1, то выводится значение переменной i, дефис и значение переменной p в формате строки. После этого значение переменной p умножается на 1.1. В конце выводится общее значение переменной s.