Напишите программу вычисления значения функции y(x)

---

---

Задание 187. Напишите программу вычисления значения функции y(x), график которой представлен ниже.

---

Программа:
program z_187;
var x, y: real;
BEGIN
writeln ('Вычисление значения функции');
write ('Введите x: ');
read (x);
if (x>=-2) and (x<=2)
then y:=sqr(x) else y:=4;
writeln ('y = ', y);
END.