Вычислить и вывести на экран в виде таблицы значения функции, заданной рядом Тейлора - Pascal

Формулировка задачи:

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

Решение задачи: «Вычислить и вывести на экран в виде таблицы значения функции, заданной рядом Тейлора»

Листинг программы

const e=0.0001;
function f(x:real;var n:integer):real;
var t,s:real;
begin
n:=0;
t:=-x;
s:=t;
while abs(t/(2*n+1))>=e do
 begin
  n:=n+1;
  t:=-t*x*x;
  s:=s+t/(2*n+1);
 end;
f:=pi/2+s;
end;
var xn,xk,x,s,h:real;
    n:integer;
begin
repeat
write('Введите начало интервала [-1..1) xn=');
readln(xn);
until(xn>=-1)and(xn<1);
repeat
write('Введите конец интервала, больше ',xn:0:1,' <=1 xk=');
readln(xk);
until (xk>xn)and(xk<=1);
repeat
write('Введите шаг табуляции, меньше ',xk-xn:0:1,' h=');
readln(h);
until h<xk-xn;
x:=xn;
writeln('       Табулирование функции F(x)=arcctg(x),');
writeln('     представленной разложением в степенной ряд');
writeln('        на интервале ',xn:0:1,'..',xk:0:1,' с шагом ',h:0:1);
writeln;
writeln('        -------------------------');
writeln('        |   X   |    S    |  n  | ');
writeln('        -------------------------');
while x<=xk+h/2 do
 begin
  s:=f(x,n);
  writeln('        |',x:6:2,' |',s:8:4,' |',n:5,'|');
  x:=x+h;
 end;
writeln('        --------------------------');
end.

Объяснение кода листинга программы

Константа e и переменные для функции f(x) и ее производной s.
Переменные для начального и конечного интервалов xn и xk, а также шаг h.
Вызов функции f(x) с аргументами xn, n и s.
Вывод промежуточных значений x и s на экран.
Цикл while для вычисления значений функции на интервале от xn до xk+h/2 с шагом h.
Вывод промежуточных значений x, s и n на экран.
Вывод итоговой таблицы значений функции на интервале [xn, xk+h/2] с шагом h.