Вычислить и вывести на экран в виде таблицы значения функции, заданной с помощью ряда Тейлора, на интервале от Xнач до Xкон с шагом dx с точностью e. Таблицу снабдить заголовком и шапкой. Каждая строка таблицы должна содержать значение аргумента, значение функции и количество просуммированных членов ряда.
Написать программу в паскале

var
    x0, xk, dx, e, x, a, s: real;
    i: integer;

begin
    readln(x0, xk, dx, e);
    x := x0;
    writeln( i :3, , x :10, , s :10);
    repeat
        a := 1;
        s := a;
        i := 0;
        
        repeat
            i := i + 1;
            a := a * x / i;
            s := s + a;
            writeln(i:3, , x:10:3, , s:10:3);
        until abs(a) lt; e;
        
        x := x + dx;
    until x gt;= xk;
end.