Начав тренировки лыжник в первый день пробежал 10 км

Переменные
i-счетчик дней
sum7-расстояние за 7 дней
den- расстояние за один день
sum-общее суммарное расстояние за 10 дней
var i:integer;sum,sum7,den:real;
begin
sum:=10;
den:=10;
write(den,' ');
for i:=2 to 10 do
begin
den:=den*1.1;
sum:=sum+den;
write(den:0:2,' ');
if i=7 Then sum7:=sum;
end;
writeln;
Writeln('Расстояние за 7 дней: ',sum7);
Writeln('Расстояние за 10 дней: ',sum);
end.
Начало
sum:=10
den:=10
den
i:=2 to 10
den:=den*1.1
sum:=sum+den
den
i=7
Да
sum7:=sum
'Расстояние за 7 дней: ',sum7
'Расстояние за 10 дней: ',sum
Конец
Начало
sum:=10
den:=10
den
i:=2 to 10
den:=den*1.1
sum:=sum+den
den
i=7
Да
sum7:=sum
'Расстояние за 7 дней: ',sum7
'Расстояние за 10 дней: ',sum
Конец