2/3+3/4+4/5...+10/11 Составить программу в паскале

begin
  Writeln('S=',2.To(10).Select(t->t/(t+1)).Sum)
end.


S=7.48012265512266



uses NumLibABC;

begin
  var s:=Frc(0);
  for var i:=2 to 10 do s+=Frc(i,i+1);
  Writeln('Точное значение ',s,', приближенное ',s.ToReal)
end.


Точное значение 207349/27720, приближенное 7.48012265512266