Задача номер 8, ** Паскале, пожалуйста очень срочно Начинается как y=1+x/2 и пр

Question

Задача номер 8, на Паскале, пожалуйста очень срочно
Начинается как y=1+x/2 и пр

---

Answer 1

Var
i:integer;
ans,x,tmp:real;
begin
  readln(x);ans:=1;tmp := x;
  for i:= 1 to 5 do
      begin
        ans:= ans + x/(2*i);
        x:= x * tmp;
      end;
  Writeln(ans);
end.

Пример:
1
2.14166666666667