Программа

PROGRAM Multiplication;
VAR Product,PredProduct:real;   { Произведение, предыдущее произведение }
    n:word;                     { Номер члена последовательности }
    Eps:real;                   { Заданное число }
BEGIN
  WriteLn;               { Пропуск строки }
  Write('Введите Eps '); { Вывод приглашения }
  ReadLn(Eps);           { Ввод значения }
  n:=1;           { Начальное определение счетчика членов последовательности }
  Product:=1-1/Sqr(n+1);  { Определение первого члена последовательности }
  repeat
    n:=n+1;              { Переопределение номера члена последовательности }
    PredProduct:=Product; { Сохранение предыдущего члена последовательности }
    Product:=Product*(1-1/Sqr(n+1)) { Переопределение члена последовательности }
  until Abs(Product-PredProduct)<Eps;
  WriteLn('A[',n,']=',Product)
END.