Нигде не сказано, что переменная X - целое выражение. А вот переменная Y принимает значения только -1, 0 и +1. Переменную Y объявим как integer, переменную X как real.
PascalABC:
var x : real; 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.
В Паскале есть функция определения знака числа Sign(X)