Используя оператор (If...then), составить программу для вычисления составной функции, имеющей различный вид на разных участках - Pascal

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

Функции y1=cos(x)+tg(x) y2=2*arcsin(x)+1.4 y3=-x^6*ln(1+x)+2.45 y4=-3*(x-1.6)^2+2.8 Участки аргумента -1<=x1<-0.5 -0.5<=x2<0.5 0.5<=x3<1 1<=x4<=2

Решение задачи: «Используя оператор (If...then), составить программу для вычисления составной функции, имеющей различный вид на разных участках»

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

uses crt;
function Y1(x:real):real;
begin
Y1:=cos(x)+sin(x)/cos(x);
end;
function Y2(x:real):real;
begin
Y2:=2*arctan(x/sqrt(1-x*x))+1.4;
end;
function Y3(x:real):real;
begin
Y3:=-x*6*ln(1+x)+2.45;
end;
function Y4(x:real):real;
begin
Y4:=-3*sqr(x-1.6)+2.8;
end;
var x,y:real;
begin
clrscr;
write('x=');
readln(x);
if(x>=-1)and(x<-0.5) then y:=Y1(x)
else if (x>=-0.5)and(x<0.5) then y:=Y2(x)
else if (x>=0.5)and(x<1) then y:=Y3(x)
else if (x>=1)and(x<=2) then y:=Y4(x);
if(x>=-1)and(x<=2) then write('Y=',y:0:3)
else write('Y не определен');
readln
end.

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

В начале кода подключается библиотека CRT (C Run-Time), которая содержит функции для работы с консолью и вводом/выводом данных.
Далее определены четыре функции Y1, Y2, Y3 и Y4, которые вычисляют значения функций на соответствующих участках.
Затем объявлены две переменные x и y типа real.
В основной части программы происходит считывание значения переменной x с помощью функции readln.
С помощью условного оператора if-else происходит определение, какая функция соответствует введенному значению x, и присваивается значение переменной y.
Если значение x находится в пределах от -1 до 2, то выводится значение переменной y с помощью функции write.
Если значение x выходит за пределы от -1 до 2, то выводится сообщение Y не определен.
В конце программы вызывается функция readln для считывания нажатия клавиши и завершения работы программы.