Написать программу для вычисления предела последовательности an=n/(n+1)

В компьютере предел значения

можно приблизительно найти, как

где max(real) - максимальное число, представимое в компьютере.

// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программа не работает, обновите версию!

begin
  Writeln((real.MaxValue-1)/real.MaxValue)
end.

Результат
1