Рекуррентная формула

Program lab5;
var y,x,s,u,a:real;
n:integer;
begin
writeln ('vvedite znahenie function i zadannyiu tochnost');
readln (x,a);
if (abs(x)>0) and (abs(x)<10) then
begin
n:=0;
u:=x;
S:=x;
y:=cos(x);
while abs(u/s)>a do
begin
u:=(-1)*u*x*x/(4*n*n+6*n+2);
S:=S+u;
n:=n+1;
end;
writeln ('S=',S:7:4,'  ','y=',y:7:4);
end
else writeln ('znahenie ne vhodit v zadannyui tochnost');
readln;
End.

uses crt;
var x,s,u,a:real;
    n:integer;
begin
writeln ('x=');
readln(x);
write('Tochnost a=');
readln (a);
if a>0 then
 begin
  n:=0;
  u:=1;
  S:=u;
  while abs(u)>a do
   begin
    n:=n+1;
    u:=-u*x*x/(2*n*(2*n-1));//рекуррентная формула
    S:=S+u;
   end;
writeln ('S=',S:7:4,'  ','cosx=',cos(x):7:4);
end
else writeln ('znahenie tochnosti ne dopustimo');
readln;
End.