Все уже сама все додумала. Кому надо смотрите

var p, n, h, x: integer;
s, f, g, s1: real;

procedure stepen(o,p: longint; var s: real);
var i: integer;
begin
s:= 1;
For i:= 1 to p do
s:= s*o;
end;

procedure fakt(n: longint; var f: real);
var i: longint;
begin
f:=1;
for i:=1 to n do
f:=f*i;
end;

begin
read(x);
s:=0;
p:=3;
n:=3;
s1:=0;

for h:= 1 to 6 do
begin
stepen(x,p,s);
p:= p+2;
fakt(n,f);
g:= s/f;
s1:= s1+g;
n:= n+2;
s1:=-s1;
end;
s1:= x-s1;
writeln(s1);
end.