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

Program pr1;
Uses Crt;
Var
n,i:integer;
a,b,s:real;
begin
ClrScr;
s:=5;
a:=5;
for i:=2 to 10 do
begin
a:=a*1.05;
s:=s+a;
end;
writeln('Спортсмен пробежал за 10 дней:',s);
readln;
end.