program Project;
uses
  Math;
  function Factorial(n: word): LongInt;
  begin
  if n=0 then Factorial := 1 else Factorial := n*Factorial(n-1);
  end;

  function myrow(x:Double;n:Integer): Double;
  begin
     myrow:= (2*n+1)/Factorial(n)* (Power(x,2*n));
  end;

  var s,x,f:Double;
  n:Integer;
begin


    x:=0.5;
   for n:=0 to 15 do
   begin
     s:=s+myrow(x,n);
   end;
   f:=(1+2*x*x)*exp(x*x);
   writeln('S=' ,s:4:10);
   writeln('f=',f:4:10);
   Writeln('Raznitca=',(s-f):4:10);
   readln;

end.