Напишите программу, вычисляющую значение функции;
{1 при x<0
y= {0 при x=0
{1 при x>0
Пример данных: -5, 0, 5
Пример вывода данных: y=-1, y=0, y=1
паскаль

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