Составить в паскале начав тренировки лыжник в 1 день пробежал а км. каждый следующий день он увеличивал пробег на b% от пробега предыдущего дня. найти суммарный путь за n дней тренировок. максимально очков.

Program pr1;
Uses Crt;
Var
n,i:integer;
a,b,s:real;
begin
ClrScr;
writeln('В 1 день лыжник пробежал ? км:');
readln(a);
writeln('Лыжник увеличивал пробег на ? %:');
readln(b);
writeln('Лыжник бежал ? дней:');
readln(n);
s:=0;
for i:=1 to n do
begin
s:=s+a;
a:=a*(1+b/100);
end;
writeln('Лыжник пробежал всего:',s);
readln;
end.