Программа

CONST Eps=0.000001; { Точность вычисления }
VAR S:real; { Переменная для набора суммы ряда }
    PredS:real; { Предыдущее значение суммы }
    a:real; { Слагаемое }
    x:real; { Аргумент функции }
    SqrX:real; { Квадрат аргумента }
    n:integer; { Счетчик факториала }
BEGIN
  WriteLn; { Пропуск строки }
  Write('Введите x '); { Вывод приглашения }
  ReadLn(x); { Ввод аргумента }
  SqrX:=Sqr(x); { Приведение аргумента }
  S:=1; { Начальное определение суммы }
  a:=1; { Определение первого слагаемого }
  n:=1; { Определение счетчика факториала }
  repeat { Цикл набора суммы ряда }
    n:=n+2; { Переопределение счетчика факториала }
    a:=-a*SqrX/((n-1)*n); { Пересчет слагаемого }
    PredS:=S; { Сохранение предыдущей суммы ряда }
    S:=S+a; { Набор суммы }
  until Abs(PredS-S)<Eps; { Выход из цикла при достижении заданной точности }
  WriteLn('        S=',S); { Вывод результата }
  WriteLn('проверка: ',Sin(x)/x); { Вывод проверки }
END.