ок)
блок-схема нужна?
да нет спс я сама попробую
опять же, будут вопросы - напиши)
спс
Var rast,summa:real; k:integer; begin rast:=10; summa:=10; for k:=2 to 7 do begin rast:=rast+rast/10; summa:=summa+rast; end; writeln(summa); end.