Проверить истинность высказывания - Pascal ABC

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

2)Проверить истинность высказывания: Данные числа x, y являются координатами точки, лежащей в первой или третьей координатор четверти. Условный оператор не использовать.

Решение задачи: «Проверить истинность высказывания»

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

const
    ANSWER: Array[Boolean] Of String = (' не ', ' ');
var
    x, y: Real;
begin
    Write('x='); ReadLn(x);
    Write('y='); ReadLn(y);
    WriteLn('Точка', ANSWER[x*y > 0], 'принадлежит первой или третьей координатной четверти.')
end.

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

В данном коде происходит следующее:

Объявляются две переменные x и y, которые представляют собой числа с плавающей точкой.
Выводится сообщение «x=», после чего считывается значение переменной x с помощью функции ReadLn().
Выводится сообщение «y=», после чего считывается значение переменной y с помощью функции ReadLn().
Вычисляется значение x*y.
Используя условный оператор if, проверяется, больше ли результат вычисления x*y нуля.
Если условие истинно, то выводится сообщение «Точка принадлежит первой или третьей координатной четверти.» с использованием массива ANSWER. Значение x*y используется как индекс для доступа к элементу массива ANSWER.
Конец программы.