По введенным значениям аргумента х вычислить значение функции, заданной графически - Turbo Pascal

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

По введенным значениям аргумента х вычислить значение функции, заданной графически.Помогите пожалуйста написать программу в Паскале

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

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

var x, y: real;
begin
  write('x = ');
  readln(x);
  if (x < -10) or (x > 4)
    then write('Function undefined')
    else begin
      if x < -6
        then y := 2 - sqrt(4 - sqr(x + 8))
        else if x < - 4
          then y := 4
          else if x < 2
            then y := -x / 2
            else y := x - 3;
      write('y = ', y:0:12)
    end;
  readln
end.

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

Объявляются две переменные типа real: x и y.
Выводится сообщение «x = », после чего считывается значение переменной x.
Проверяется условие: если значение x меньше -10 или больше 4, то функция не определена и выводится сообщение «Function undefined».
Если условие не выполняется, то проверяется значение x: — Если x меньше -6, то вычисляется значение y по формуле y = 2 - sqrt(4 - sqr(x + 8)). — Если x меньше -4, то значение y устанавливается равным 4. — Если x меньше 2, то значение y устанавливается равным -x/2. — Если x больше или равно 2, то значение y устанавливается равным x-3.
Выводится значение переменной y.