Вычисление значения функции заданной в виде графика - Turbo Pascal (29254)

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

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

Решение задачи: «Вычисление значения функции заданной в виде графика»

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

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

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

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