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

Ответ:

program abc;

var x = int;

begin;

readln(x);

writeln(x);

end.

Объяснение:

===== 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.