Напишите, пожалуйста, решение ** паскале

Question

Напишите, пожалуйста, решение на паскале

---

Answer 1

Ответ:

Объяснение:

var

   x, y:real;

begin

   //x:=5;

readln(x);

   

   if (x < -1) then y:=x+2;

   if ((x >= -1) and (x <= 2)) then y:=x*x;</p>

   if (x > 2) then y:=6-x;

   

   writeln(y);

   

end.