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

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.