За час тренировки спортсмен в один день пробежал 10 км .каждый день он увеличивал свою норму на 10 %. какой сумарный путь он пробежал за 10 дней ? решите циклом for

Program rasst;
var norma, vsego: real;
den: integer;
begin
norma:=10;
vsego:=10;
den:=2;
while den<8 do begin
norma:=1.1*norma;
vsego:=vsego+norma;
den:=den+1
end;
writeln('Общий пробег=',vsego)
end.