Составьте Блок-схемы.
D=12-процентов i=10-дни
Var i: integer; d, s: real; begin d := 10; s := d; for i := 2 to 7 do begin d := d * 1.1; s := s + d; end; writeln(s); end.