Лыжник начал тренировку с 10 км, каждый день он увеличивал дистанцию на 12% от предыдущей, сколько км лыжник пройдёт за месяц, то есть за 31 день цикл работа на паскаль

Program Lignik;
var s,n:real;
begin
n:=10;
s:=0;
for var i:=0 to 31 do
 begin
   s:=s+n;
   n:=n*1.12;
 end;
   writeln('За месяц лыжник пройдет: ',n,' км');
end.