Turbo Pascal. Написать программу... Каков будет пробег спортсмена на N-й день, если в первый день Х км и каждый следующий

Если в 1 день спортсмен пробегает х км, то на следующий день он пробежит на 10% больше: 

х + х * 0,1.

10% это 10 / 100;

Program Primer1;Var      i, N: integer;      x, s: real;begin      read(x); { пробег за 1 день}      read(N); {вводим количество дней}      s:= x; {сумма пробега за 1 день}            for i:= 2 to N do              begin                  x:= x * 1.1; {пробег за каждый следующий день}                  s:= s + x; {сумма пробега} end; writeln(s); {пробег за N день}end.