Proc16. Описать функцию Sign($X$) целого типа, возвращающую для вещественного числа $X$ следующие значения: -1, если $X < 0$; 0, если $X = 0$; 1, если $X > 0$. С помощью этой функции найти значение выражения Sign($A$) + Sign($B$) для данных вещественных чисел $A$ и $B$.

Решение от Дмитрия:

Другие задачи из раздела Proc можно посмотреть здесь.