Вычислить функцию в Паскале,помогите!!!

Question

Вычислить функцию в Паскале,помогите!!!

---

Answer 1

Var x,y:integer;
begin
write('x=');
readln(x);
if x<0 then y:=-1<br>else if x=0 then y:=0
else y:=1;
writeln('y=',y)
end.