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

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

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

Решение задачи: «Написать программу, которая по введенному значению аргумента вычисляет зн-е функции, заданной в виде графика»

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

var
    x: Single;
begin
    Write('x='); ReadLn(x);
    Write('y(', x:0:2, ')=');
    if (x > 8)
    then
        Write(3.0:0:2)
    else
        if (x > 3)
        then
            Write((3 * (x - 3) / 5):0:2)
        else
            if (x > -3)
            then
                Write(Sqrt(9 - Sqr(x)):0:2)
            else
                if (x > -5) //вот тут загвоздка, ибо неясно куда включена -5
                then
                    Write((x + 3):0:2)
                else
                    Write((-3.0):0:2);
end.

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

Объявлена переменная x типа Single.
Пользователю предлагается ввести значение переменной x.
Выводится значение функции y(x) в формате y(x:0:2).
Проверяется, больше ли x 8.
Если x больше 8, то выводится значение 3.0.
Если x меньше или равно 3, то выводится значение (3 * (x - 3) / 5).
Если x больше -3, то выводится квадратный корень из (9 - x^2).
Если x меньше или равно -3, то выводится значение (x + 3).
Если x меньше или равно -5, то выводится значение (-3.0).
Если x больше -5, то выводится значение (x + 3).