Вычислить значение выражения - Turbo Pascal (29132)

z=(sign(x)+sign(y)+sign(x+y) sign(a)={ 1 , a>0 {-1 , a<0 {0 , a=0

Объясните пожалуйста что значит sign

Листинг программы

function Sign(const x: Real): ShortInt;
begin
   Sign := ord(x > 0) - ord(x < 0)
end;

Объяснение кода листинга программы

Создается функция Sign, которая принимает аргумент типа Real и возвращает значение типа ShortInt.
Внутри функции создается переменная Sign, которая будет хранить результат вычисления.
Вычисляется значение выражения ord(x > 0) - ord(x < 0), где x - это аргумент функции.
Значение выражения преобразуется в тип ShortInt и сохраняется в переменной Sign.
Функция заканчивает свою работу и возвращает значение переменной Sign.