var
i: integer;
d,s: real;
begin
d:= 10;
s:= 10;
for i:=2 to 7 do begin
s:= d*0.1+s;
d:= s;
writeln(s:0:2)
end
end.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.