Pascal Дано действительное число х. Вычислить

[yzen]

Дано действительное число х. Вычислить

uses crt;
var x,i,t,a,f:integer;
    s:real;
begin
clrscr;
writeln('Введите x ');
readln(x);
a:=1;
i:=1;
for i:=1 to 13 do begin
if odd(i) then
a:=a*x; {факториал}
f:=f*i;  {степень}
s:=a/f;
end;

end.

что то дальше сообразить не могу

[p51x]

У вас в "факториал" и "степень" входят не все множители. Зачем вы их внесли под иф?

Вы забыли о чередовании знака.

[yzen]

т.к. степень и факториал они все нечетные
но в моем случае это все ровно не то
скинул мысли

[p51x]

т.к. степень и факториал они все нечетные

И? Не тупите.
5! = 1*2*3*4*5, а не 1*3*5 как у вас