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

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