СРОЧНО!!! ДАЮ 25 БАЛЛОВ Ребят помогите составить программы по информатике ** языке Pascal

Question

СРОЧНО!!! ДАЮ 25 БАЛЛОВ
Ребят помогите составить программы по информатике на языке Pascal

---

---

Answer 1

1 Вар
Var i:integer;
      k:real;
Begin
 k:=10;
 for i:=1 to 7 do
  k:=k+k*0.1;
 writeln(k);
End.