Описать функцию Sin1(x, ε) - Pascal

Формулировка задачи:

Описать функцию Sin1(x, ε) вещественного типа (параметры x, ε — вещественные, ε > 0), находящую приближенное значение функции sin(x): sin(x) = x − x³/(3!) + x⁵/(5!) − . . . + (−1)ⁿx²ⁿ⁺¹/((2n+1)!) + ... В сумме учитывать все слагаемые, модуль которых больше ε.

Решение задачи: «Описать функцию Sin1(x, ε)»

Листинг программы

var x,eps:real;
    i:byte;
begin
clrscr;
write('x=');
readln(x);
eps:=0.1;
for i:=1 to 6 do
 begin
  writeln('Приближенное значение  sinx= при eps=',eps:0:7,'=',Sin1(x,eps):10:7);
  eps:=eps/10;
 end;
end.

Объяснение кода листинга программы

Создаются переменные x и eps типа real.
Создается переменная i типа byte.
Выводится сообщение x= и считывается значение переменной x.
Переменная eps инициализируется значением 0.1.
Запускается цикл for, который выполняется 6 раз.
В каждой итерации цикла выводится приближенное значение sinx при eps=0.1 и записывается результат в переменную Sin1(x, eps).
Значение переменной eps уменьшается в 10 раз.
Цикл завершается.
Выводится сообщение Приближенное значение sinx= при eps=0.1=.
Значение переменной eps сравнивается с 0.1 и, если они равны, выводится значение Sin1(x, eps).
Программа завершается.