Написать программку, которая по введенному значению аргумента вычисляет значение функции,

В таких задачках основное - это верно составить функцию, а программная реализация ординарна.
Функция кусочная, состоит из 5 интервалов. Как видно из рисунка, она определена для хоть какого х, потому условимся, что левые границы промежутков будут открытыми, а правые, за исключением последнего промежутка, закрытыми.
$1.\ y=-3; \ x \in (-\infty;-4] \\ 2.\ \fracy-y_1y_2-y_1= \fracx-x_1x_2-x_1; \\ \fracy-(-2)0-(-2)= \fracx-(-4)-3-(-4); \fracy+22=x+4 \to y=2x+8; \ x \in (-4;-3] \\ 3. \ x^2+y^2=9 \to y= \sqrt9-x^2; \ x \in (-3;3] \\ 4. \ \fracy-03-0= \fracx-38-3; \fracy3= \fracx-35 \to y=0.6(x-3); \ x \in (3;8] \\ 5. \ y=3; \ x \in (8; +\infty)$

var
x:double;

begin
Write('Введите значение х: '); Readln(x);
if xlt;=-4 then Writeln('y=',-3)
else if xlt;=-3 then Writeln('y=',2*x+8)
else if xlt;=3 then Writeln('y=',sqrt(9-sqr(x)))
else if xlt;=8 then Writeln('y=',0.6*(x-3))
else Writeln('y=',3)
end.

Тестовое решение:
Введите значение х: 2
y=2.23606797749979

О проекте

Написать программку, которая по введенному значению аргумента вычисляет значение функции,

Добро пожаловать!