Составить таблицу значений функции y = f(x) на отрезке от a до b с шагом h - Pascal ABC

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

Добрый день! Прошу помочь в решении задачи, http://ipic.su/img/img7/fs/Snimok.1462179367.png спасибо!

Решение задачи: «Составить таблицу значений функции y = f(x) на отрезке от a до b с шагом h»

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

function f(x:real):real;
begin
f:=exp(abs(x))*cos(x);
end;
const a=-2;
      b=2;
      h=0.2;
      
var x:real;
begin
writeln('----------------');
writeln('|  x  |   f(x) |');
writeln('----------------');
x:=a;
repeat
writeln('|',x:4:1,' |',f(x):8:4,'|');
x:=x+h;
until x>b;
write('----------------');
end.

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

В функции f(x) переменная x имеет тип real, что означает, что она может содержать действительные числа. Функция возвращает значение типа real, то есть результат вычисления функции f(x).
Константы a и b имеют тип real и определяют границы отрезка, на котором будет вычисляться функция. Константа h определяет шаг, с которым будет изменяться значение переменной x.
Переменная x имеет тип real и инициализируется значением a. Она будет использоваться для последовательного вычисления значений функции f(x) на отрезке от a до b с шагом h.
Цикл repeat-until используется для вывода значений x и f(x) на экран. Он начинается с x=a и продолжается до x>=b. На каждой итерации значение x увеличивается на h.
Выводится заголовок | x | f(x) |, который описывает, что будет выводиться на экран.
Выводится строка '----------------', которая отделяет начало и конец вывода.
Значение x выводится в виде '|' 'x' '|', где 'x' - это текущее значение переменной x.
Значение функции f(x) выводится в виде '|' 'f(x)' '|', где 'f(x)' - это результат вычисления функции f(x) для текущего значения x.
После завершения цикла выводится строка '----------------', которая отделяет конец вывода.
Конец программы.