Заполненить таблицу значений функции - Pascal ABC

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

Добрый день уважаемые программисты! Помогите мне пожалуйста Составить блок-схему и программу для заполнения таблицы значений функции y = f(x) на отрезке с указанным шагом изменения аргумента. Вид функции задается в лабораторной работе № 1. Значение функции выводить с точностью до тысячных долей. Результат вывести в следующем виде:

                    Листинг программы
                
-----------------------------------------
!         X       !      y = f(x)       !

Вариант задания которое нужно сделать ~~я прикрепляю к тему~~:

Функция	Интервал изменения аргумента	Шаг изменения аргумента

Заранее спасибо

Решение задачи: «Заполненить таблицу значений функции»

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

const a=-pi;
      b=pi;
      h=pi/10;
var x,y:real;
begin
writeln('----------------');
writeln('|  x  | y=f(x) |');
writeln('----------------');
x:=a;
while x<=b do
 begin
  if x<0 then y:=x*ln(abs(cos(x)))
  else if x<=2.5 then y:=1+x*x
  else y:=x-2;
  writeln('|',x:5:2,'|',y:7:3,' |');
  x:=x+h;
 end;
write('----------------');
end.

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

const a=-pi; — задает значение константы a равное -π
b=pi; — задает значение константы b равное π
h=pi/10; — задает значение константы h равное π/10
var x,y:real; — объявляет переменные x и y типа real
begin — начало блока кода
writeln('----------------'); — выводит строку ----------------
writeln('| x | y=f(x) |'); — выводит строку | x | y = f(x) |
x:=a; — присваивает переменной x значение a
while x<=b do — начинает цикл while x меньше или равно b
begin
if x<0 then y:=xln(abs(cos(x))) — если x отрицательное, то y равно xln(abs(cos(x)))
else if x<=2.5 then y:=1+xx — иначе, если x меньше или равно 2.5, то y равно 1+xx
else y:=x-2; — иначе, если x больше 2.5, то y равно x-2
writeln('|',x:5:2,'|',y:7:3,' |'); — выводит строку | x | y |
x:=x+h; — увеличивает значение переменной x на h
end;
write('----------------'); — выводит строку ----------------
end.