вычислить через оператор For. помогите пожалуйста очень нужно

Question

вычислить через оператор For. помогите пожалуйста очень нужно

---

Answer 1

var
x,s:real;
n,i:integer;
begin
  write('Введите X: ');
  readln(x);
  write('Введите N: ');
  readln(n);
  s:=0;
  for i:= 1 to n do s:=s+1/(x+i);
  writeln('Сумма = ', s);
end.

Answer 2

var

  i,n:integer;

  sum,x:real;

begin

  write ('X = ');

  readln(x);

  write ('N = ');

  readln(n); 

  sum:=0;

  for i:=1 to n do sum:=sum+1/(x+i);

  writeln ('Summa: ',sum:0:4);

  readln;

end.