Дано действительное число x. Вычислить: x-x3/3!+x5/5!-x7/7!+x9/9!-x11/11!+x13/13!. (программа Паскаль)

uses crt;
var x,t,s:real;
    k:integer;
begin
clrscr;
write('x=');
readln(x);
s:=x;
t:=x;
for k:=1 to 6 do
 begin
  t:=-t*x*x/(2*k*(2*k+1));
  s:=s+t;
 end;
write('S=',s:0:4);
readln
end.