Формула в задании..

[CodeExpert]

Помогите оформить формулу нормально по заданию:
Untitled123.jpg
Увеличенная формула - Вложение 22857
Функции то я написал, но вот не могу никак прикрутить это к формуле, оно вроде бы работало но не при всех значениях почему-то..Помогите пожалуйста..

{функция вычисления факториала}
function fac(var x:integer):integer;
var i:integer;k:integer;
begin
k:=1;
for i:=1 to x do begin
 k:=k*i;end;
fac:=k;
end;

{функция для вычисления е^х}
function ex(var x:a):real;//Возвращает экспоненту числа x 
var fx,fx0,temp,zn:real; //результирующее значение
    i:integer;//Первоначальная сумма и счетчик}
    k,z:integer;//ограничитель
begin
fx:=1+x;
i:=2; //первоначальное значение для счетчика
while abs(fx-fx0)>=e do begin
fx0:=fx;//предыдущий член последовательности
{вычисление относящееся к последующему члену ряда}
 {вычисляем текущие член ряда}
 temp:=(exp(ln(x)*i))/(fac(i));
fx:=fx+temp;//вычисиляем общий результат
Inc(I);//повышаем счетчик
end;
ex:=fx;
end;

{функция вычисления cos}
function cs(var x:a):real;//Возвращает косинус числа x 
var fx,fx0,temp,zn:real; //результирующее значение
    i:integer;//Первоначальная сумма и счетчик}
    k,z:integer;//ограничитель
begin
fx:=1;//Результирующая переменная
i:=2; //первоначальное значение для счетчика
k:=2; //номер члена ряда
{вычисление числового ряда}
while abs(fx-fx0)>=e do begin
fx0:=fx;//предыдущий член последовательности
{вычисление относящееся к последующему члену ряда}
 {вычисляем текущие член ряда}
 temp:=((exp(ln(x)*i))/(fac(i)));
 if k mod 2=0 then temp:=-temp;
fx:=fx+temp;//вычисиляем общий результат
i:=i+2;//повышаем счетчик
k:=k+1;
end;
cs:=fx;
end;

Основной код:

program laba_7;
uses Crt; //подключаем модуль
const e=0.0001;//точность вычисления
      Pi=3.14;//Постоянная округленная величина
type a=real;//вводимое значение
function fac(var x:integer):integer;
function ex(var x:a):real;
function cs(var x:a):real;
{основное тело программы}
var x,temp:a;
    res:real;
begin
{считываем введенные данные}
Writeln('Введите A');
Readln(x);
????????
Writeln('Результат = ',temp);
readln;
end.

[CodeExpert]

Буду очень признателен за помощь..

[eoln]

Формулу плохо видно, вложение не работает.

1) 8! при integer в паскале уже даст ошибку - используем, например, real

function fac(var x:integer):real;
var i:integer;k:real;
begin
k:=1;
for i:=1 to x do begin
 k:=k*i;end;
fac:=k;
end;

2)

temp:=(exp(ln(x)*i))/(fac(i));

работает только для положительных x. Если нужны и неположительные числа, рассмотри 3 случая: (пишу прям тут, могу немного ошибиться)
при x>0 - exp(ln(x)*i)
при x=0 - 0
при x<0 - +exp(ln(abs(x))*i) если i mod 2 = 0 и -exp(ln(abs(x))*i) если i mod 2 = 1