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

Program asd;
var a,b:integer;
begin
a:=10;
writeln(1=10);
for b=2 to 10 do
begin
writeln(b,=,a+((a/100)*10);
a:=a+((a/100)*10);
end;
end.