Принадлежит ли точка закрашенной области - Turbo Pascal (29313)

Как найти принадлежит ли точка закрашенной области не используя условные операторы.

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

var x: Real;
begin
  ReadLn(x); WriteLn(x<=0.2,' ',x,' ',0.2);
end.

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

Переменная x объявлена как Real, что означает, что она будет хранить числовое значение с плавающей точкой.
В блоке begin выполняется чтение значения переменной x из стандартного ввода и его запись в стандартный вывод.
Чтение и запись выполняются с помощью функций ReadLn и WriteLn соответственно.
Выполняется проверка условия x <= 0.2. Если это условие истинно, то выводится строка , которая содержит значение переменной x и значение 0.2, разделенные пробелом.
Код не использует вложенные списки.