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

var
  i: integer;
  d,s: real;
begin
  d:= 10;
  s:= 10;
  for i:=2 to 7 do begin
    s:= d*0.1+s;
    d:= s;
    writeln(s:0:2)
  end
end.