Программа

PROGRAM Multiply;
  Var P:real; { Произведение }
      X:real; { Аргумент }
      k:integer; { Счетчик итераций }
      Eps:real; { Точность вычислений }
BEGIN
  Write('Введите X '); { Вывод приглашения }
  ReadLn(X); { Ввод X }
  Write('Введите точность '); { Вывод приглашения }
  ReadLn(Eps); { Ввод Eps }
  P:=1; { Сброс произведения }
  k:=0; { Сброс счетчика итераций }
  repeat
    k:=k+1; { Набор счетчика }
    P:=P*(1-X*X/k/k/Pi/Pi)  { Набор произведения }
  until 1/k/k<=Eps;
  WriteLn('     P=',P*X); { Вывод произведения }
  WriteLn('sin(x)=',sin(X)); { Вывод контрольного значения }
END.