Вычислить значение выражения

 Program Cikly;
 
{Входное данное: A,B,X,m,n
Выходные данные: S}
Var
 
 
 
A,B,X,f,S:Real;
i,m,n:Integer;   
 
Begin
 
  Begin
  clrscr;
  WriteLn('Введите значение A');
  WriteLn('Введите значение B');
  WriteLn('Введите значение X');
  WriteLn('Введите значение m');
 WriteLn('Введите значение n');
  readln(A,B,X,m,n);
 end;
 
 F:=0;
 
for var i:=m to n do begin
if (i mod 2=0) 
then
F:=F+(A+X*i)/(B+X*i) 
else
F:=F-(A+X*i)/(B+X*i);
  end;
 
 begin
{Вычисление суммы}
 f:=A+B*F; S:=S+f;
 readln;
 End;
writeln('Сумма = ', s);
 
 End.

  S := 0;
  for var i := m to n do S := S + (1 - (i mod 2) * 2) * (A + X * i) / (B + X * i); 
  S := A + B * S;
  writeln('Сумма = ', s);
  readln
End.

Var A, B, X, S: Real;
    m, n: Integer;   
Begin
  A := ReadlnReal('Введите значение A: ');
  B := ReadlnReal('Введите значение B: ');
  X := ReadlnReal('Введите значение X: ');
  m := ReadlnInteger('Введите значение m: ');
  n := ReadlnInteger('Введите значение n: ');
  S := 0;
  for var i := m to n do S := S + (1 - (i mod 2) * 2) * (A + X * i) / (B + X * i); 
  S := A + B * S;
  writeln('Сумма = ', S);
  readln
End.