program SkiRunner;
var
distance, totalDistance: real;
day: integer;
begin
distance := 10;
totalDistance := 10;
for day := 2 to 7 do
begin
distance := distance * 1.1;
totalDistance := totalDistance + distance;
end;
writeln('Суммарный пробег за первые 7 дней тренировок: ', totalDistance:0:2, ' км');
end.

Эта программа вычисляет суммарный путь, который лыжник пробежал за первые 7 дней тренировок, учитывая увеличение дистанции на 10% каждый день.