Построить таблицу значений функции на заданном интервале изменения аргумента - PascalABC.NET

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

Здравсвтуйте, можете помчь решить аткое уравнение, все сделал кроме него

Решение задачи: «Построить таблицу значений функции на заданном интервале изменения аргумента»

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

const xn=0.2;
      xk=2.8;
      dx=0.2;
var a,x,y:real;
begin
write('a=');
readln(a);
x:=xn;
repeat
if (a>-0.5)and(a<0) then y:=sqr(x-2)+6
else if (a>=0)and(a<0.5) then y:=3*sin(x)/cos(x)
else if abs(a)=0.5 then y:=1.8*a*x
else if abs(a)>0.5 then y:=1.5*sqr(cos(x));
writeln('x=',x:4:1,' y=',y:6:3);
x:=x+dx;
until x>xk+dx/2;
end.

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

В начале кода объявляются константы: xn, xk и dx, которые задают начальное и конечное значение аргумента функции и шаг изменения аргумента соответственно.
Затем объявляются переменные a, x и y типа real.
Ввод значения переменной a с помощью функции readln().
Инициализация переменной x значением xn.
Далее следует цикл while, который выполняется до тех пор, пока значение переменной x меньше или равно xk+dx/2.
Внутри цикла проверяется значение переменной a и в зависимости от этого значения вычисляется значение переменной y с помощью различных формул.
Выводится значение переменных x и y с помощью функции writeln().
Значение переменной x увеличивается на dx.
После выполнения цикла while выводится сообщение об успешном выполнении программы.