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

program lyg;var all,last,seven: real; ii,day: integer;begin last := 10; all := 10; day := 0; for ii := 1 to 10 do begin last := last+(last*0.1); all := all+last; if ii=7 then seven := all; writeln('day ',ii,': ',round(last)); if day = 0 then if all > 100 then day := ii; end; writeln('Overall distance of 7 days: ',seven); writeln('Distance 100km is reached at ',day,' day');end.