Вывести таблицу значений функции - Free Pascal

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

помогите сделать программу в паскале и вывести на экран ввиде таблицы

Решение задачи: «Вывести таблицу значений функции»

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

uses crt;
function f(x,e:real):real;
var s,t:real;
    n:integer;
begin
n:=0;
t:=-1/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 x,e:real;
begin
clrscr;
e:=0.0001;
x:=-2;
while x<-1 do
 begin
  writeln('x=',x:4:1,' s=',f(x,e):8:4,' at=',arctan(x):8:4);
  x:=x+0.1;
 end;
readln
end.

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

Объявлены переменные: x, e, s, t, n.
Вычисление значения функции f(x,e) с помощью цикла while.
Начальное значение переменной n равно 0.
Переменная t вычисляется как -1/x.
Переменная s вычисляется как сумма t/((2*n+1)).
Цикл while выполняется до тех пор, пока abs(t)/(2*n+1)>e.
При каждой итерации цикла значение переменной n увеличивается на 1.
Значение переменной t вычисляется как -t/(x*x).
Значение переменной s обновляется как сумма t/((2*n+1)).
Значение функции f(x,e) вычисляется как -pi/2+s.
В основной программе объявлены переменные x, e со значением 0.0001 и -2 соответственно.
Цикл while выполняется до тех пор, пока x<-1.
На каждой итерации цикла выводится значение x, f(x,e) и arctan(x).
Значение x увеличивается на 0.1 на каждой итерации цикла.
Программа завершается после выполнения цикла while.
Программа ожидает ввода пользователя с помощью функции readln.