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

Var
   d:integer;
   n,s:real;
begin
n:=10;
s:=10;   {путь в первый день, считать будем поэтому со второго дня}
d:=2;
repeat
    n:=n*(1+0.1);
    s:=s+n;
    d:=d+1;
    until d>7;
writeln(s)
end.