посчитайте , очень решить задачу по информатике на тему условный оператор,блоки оператораДаю 30 поинтов

pascal

var x, y: real;

begin

Write('Введите значение x: '); ReadLn(x);

if x < -1 then y := -2

else if x > 2 then y := sqr(x - 2) + 1

else y := x - 1;

WriteLn('y(', x, ') = ', y:4:2);

end.