Question

Срочно!! Помогите решить через Паскаль. Буду благодарен)))

Answer 1

===== PascalABC.NET =====

begin

 var x := ReadReal('x =');

 var y: real;

 if x < -1 then

   y := -x - 1

 else if x < 0 then

   y := x - 1

 else if x < 1 then

   y := -x + 1

 else

   y := x + 1;

 Println(y)

end.