Спортсмен пробегал 10 км в день. начав тренировки, он увеличивал норму на 10% от нормы предыдущего дня. какой суммарный путь пробежит спортсмен за 7 дней? С ПАСКАЛЕВСКИМ КОДОМ!!!

program raf105;

var x,y,day:real;

begin

x:=10;

while day<7 do

begin

 x:= x+x/100*10;

 y:= y+x;

 day:= day+1;

end;

writeln('Суммарный путь, который пробежит спортсмен за 7 дней тренировок: ',round(x),' км.');

end.

Программа написана на языке PascalABC