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

Var p:real; i,n:integer;
begin
write('n = '); readln(n);
p:=10;
for i:=2 to n do p:=1.1*p;
writeln('p = ',p);
end.

Пример:
n = 5
p = 14.641