Не используя стандартных функций (за исключением abs) вычислить с точностью eps>0 - Free Pascal

Не используя стандартных функций (за исключением abs) вычислить с точностью eps>0 y=cos(x)=1-(x^2/2!)+(x^4/4!)-...+(((-1)^n)*x^2n)/(2n)!+....

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

x, e, s, t: Real; //x - аргумент функции; e - точность (eps); s - сумма; t - n-тый член последовательности
n: Integer; //счётчик

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

В начале программы объявлены четыре переменные: x, e, s, t типа Real, а также переменная n типа Integer.
Затем с помощью цикла for задаётся счётчик n, который выполняет роль ограничения для цикла.
Внутри цикла вычисляется значение t: при помощи деления (x/n) с последующим умножением результата на 2 (t := 2*(x/n)).
Далее в переменной s происходит сложение t и предыдущего значения s (s := s + t).
После чего проверяется условие, что значение s не превышает значение e (если s > e then).
Если условие выполняется, то происходит выход из цикла (break).
В основной части программы выводится значение переменной s.