Найти, в какой координатной четверти расположен треугольник - Pascal

Формулировка задачи:

Даны значения вещественных переменных a и b. Найти, в какой координатной четверти расположен треугольник, образованный прямой, заданной уравнением y=ax+b, и осями координат, если такой треугольник существует.

Решение задачи: «Найти, в какой координатной четверти расположен треугольник»

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

        Write(2 * ord(b < 0) + ord(a > 0) + 1);

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

Создается переменная a со значением координаты треугольника по оси x.
Создается переменная b со значением координаты треугольника по оси y.
Вычисляется условие b < 0, результат преобразуется в 0 или 1.
Затем вычисляется условие a > 0, результат также преобразуется в 0 или 1.
Вычисляется выражение 2 * ord(b < 0) + ord(a > 0) + 1.
Результат вычисления выводится на экран с помощью функции Write.