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

Var
 a,i,n:longint;
begin
 a:=10;
 for i:=1 to 7 do
 begin
  inc(n,a);
  inc(a,a div 10);
 end;
 writeln(n);
end.
Уже вроде такой задавали .