напишите программу вычисляющую значение функции y=1 при x<0, y=0 при x=0, y=-1 при x<0

4 строка Ошибка времени выполнения: Входная строка имела неверный формат.

var x,y:integer;beginwrite('x = ');readln(x);if x>0 then y:=1       else if x=0 then y:=0 else y:=-1;writeln('y = ',y);end.Пример:x = -5y = -1