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

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