Question

Помогите пожалуйста, очень срочно
В Паскале

Answer 1

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

begin

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

 var y: real;

 if x >= 1 then

   y := 1

 else if x <= -1 then

   y := -1

 else

   y := 0;

 Print(y)  

end.