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

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

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

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

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

var x, y: real;
begin
  write('x = ');
  readln(x);
  if (x <= -7) or (x >= 4)
    then y := 0
    else if x < -3
      then y := x + 7
      else if x < -2
        then y := 4
        else if x < 2
          then y := x * x
          else y := 8 - 2 * x;
  writeln('y = ', y)
end.

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

Создаются две переменные типа real: x и y.
Выводится сообщение «x = », после чего считывается значение переменной x.
Проверяется условие: если значение x меньше или равно -7 или больше или равно 4, то y устанавливается равным 0.
Если условие из пункта 3 не выполняется, проверяется следующее условие: если значение x меньше -3, то y устанавливается равным x + 7.
Если условие из пункта 4 не выполняется, проверяется следующее условие: если значение x меньше -2, то y устанавливается равным 4.
Если условие из пункта 5 не выполняется, проверяется следующее условие: если значение x меньше 2, то y устанавливается равным x * x.
Если условие из пункта 6 не выполняется, то y устанавливается равным 8 - 2 * x.
Выводится сообщение «y = », после чего выводится значение переменной y.