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

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