Начав тренировки,спортсмен в первый день пробежал 10 км. каждый день он увеличивал дневную норму на 10% нормы предыдущего дня. какой суммарный путь пробежит спортсмен за 7 дней? c for i

I: Integer;    
f,x,y: Real;

x:= 10;
f:= x;
for i:= 2 to 7 do begin // так как 1 день он уже пробежался
y:= (x/100)*10;          
x:= x + y;          
f:= x + f;
end;
WriteLn('Всего  спортсмен пробежал ',f:5:2,' километров');
ReadLn;