Составить задачу в Паскале

Начав тренировки лыжник в 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.