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

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