Распечатать таблицу значений ряда и значений системной функции для x, изменяющегося в диапаоне

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils,
  Math;
function S(x,e: Double): Double;
var an, dn: Double;
n:Integer;
begin
  n:=0;
  an:=x;
  result:=an;
  while Abs(an)>e*abs(result) do
  begin
    n:=n+1;
    dn:=x/n;
    an:=dn*an;
    Result:=Result+an;
  end;
end;
var a,b,h,x,y: Double;
begin
  a:=0;
  b:=3;
  h:=0.1;
  writeln('________________+____________________+_________________ ');
  writeln('|      x        +     S(x,1e-6)      +                 |');
  Writeln('|               +                    +                 |');
  Writeln('|               +                    +                 |');
  x:=a;
  while x<b do
  begin
    y:=Exp(x);
    writeln('x', x, 'S(x,1e-6)=', S(x,1e-6), 'y=', y);
  end;
  Writeln('-------------------------------------------------------');
  readln;
  end.