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

Это определение стандартной неэлементарной кусочно-постоянной математической функции sgn(x) - сигнум От латинского signum - знак).В языке Паскаль эта функция уже определена.// PascalABC.NET 3.1, сборка 1239 от 08.05.2016// Также проверено в WDE: http://pascalabc.net/WDEbegin  Writeln('y=',Sign(ReadReal('x=')))end.Тестовое решениеx= 4.564y=1