На паскале:Рассчитать сумму ряда с общим членом 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.