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

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

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

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

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

var x,y:real;
begin
write('введите значение х=');
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:=-2*x+8;
writeln('y=',y:0:2);
end.

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

Объявляются две переменные типа real: x и y.
Пользователю предлагается ввести значение переменной x.
Происходит проверка значения переменной x по условиям задачи.
Если x меньше или равно -7, или больше или равно 4, то значение переменной y устанавливается равным 0.
Если x меньше или равно -3, то значение переменной y устанавливается равным сумме x и 7.
Если x меньше или равно -2, то значение переменной y устанавливается равным 4.
Если x больше или равно 2, то значение переменной y устанавливается равным квадрату x.
Во всех остальных случаях значение переменной y устанавливается равным -2 умножить на x и прибавить 8.
Выводится значение переменной y с точностью до двух знаков после запятой.