На паскале: рассчитать сумму ряда с общим членом an=1/(n+3) c точность до 0,03

Принцип такой, формулу свою вставь
uses crt;
var x,e,s,t:real;    
 k:integer;
begin
clrscr; e:=0.000001;
write('x=');
readln(x);
s:=0; t:=1; k:=0;
while abs(t)>e do
 begin  
 k:=k+1;  
 t:=-t*x*x/(2*k*(2*k-1));
   s:=s+t;
 end;
write('S=',s:0:6);
readln;
 end.