Начав тренировки, спортсмен в первый день пробежал 10 км. Каждый день он увеличивал дневную норму на 10% нормы предыдущего дня. Какой суммарный путь пробежит спортсмен за 7 дней — Pascal(Паскаль)

uses crt;
var
   z:integer;
   f,x,y:real;
begin
     clrscr;
     writeln;
     x:=10;
     f:=x;
     writeln('1 den trenirovok sportsmen probegal ',x:3:2,' km');
     for z:=2 to 7 do
     begin
          y:=(x/100)*10;
          x:=x+y;
          f:=x+f;
          writeln(z,' den trenirovok sportsmen probegal ',x:3:2,' km');
     end;
 
     writeln('vsego ',f:5:2,' km');
     writeln('Nagmite ENTER...');
     readln;
end.