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

Program Suma;
var
a,i:integer;
c,b:real;
Begin
a:=10;
b:=10;
c:=0;
for i:=1 to 7 do
begin
c:=(10*(b/100))+b;
b:=c;
writeln(c);
end;
End.

var finish,norma: real;i:integer;
begin
norma:=10;
finish:=10;
for i:=1 to 6 do
begin
norma:=1.1*norma;
finish:=finish+norma;
end;

writeln('all= ',finish)
end.