Помогите написать на паскале

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

program asd;var a,b:integer;begina:=10;writeln('1=10');for b=2 to 10 dobeginwriteln(b,'=',a+((a/100)*10);a:=a+((a/100)*10);end;end.