Написать на паскале начав тренировки лыжник в первый день пробежал 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.