Помогите написать программу к задаче на pascal. Использовать циклы. Я в девятом классе.

Проверьте, писал на телефоне

var probeg:real;i:integer;beginprobeg:=10;for i:=1 to 10 dobeginwriteln('В ',i,' день пробежал ',probeg,' км.'); probeg:=probeg+probeg*0.1;end;end.