PascalABC.NETСоставить программку, которая печатает true, если точка с координатами (х, у)

В таких задачах главное - составить уравнения линий, ограничивающие заданный контур.
Уравнение прямой, проходящей через две точки, можно записать в виде
Первая линия (показана красноватым цветом) проходит через точки A(2;5) и В(5;1). Подставляя значения в (1) получаем

2-ая линия (показана голубым цветом) проходит через точки В(5;1) и С(2;-4). Подставляя значения в (1) получаем

2-ая линия (показана зеленоватым цветом) имеет уравнение х=2.

Границы, а также внутренняя часть контура, составленного этими 3-мя чертами (треугольник) принадлежат сразу трем областям, показанным цветными заливками. Любая область определяется математическим неравенством. Если область лежит выше полосы y=F(x), то yF(x), а если ниже, то yF(x)
Тогда для красной области

для голубой области

и для зеленой области х2
А контур описывается совокупой этих 3-х критерий, объединенных логическим "И".

Условие (2) является логическим выражением и его значением в программке будет true/false, что и требуется по условию.

// PascalABC.NET 3.2, сборка 1379 от 21.01.2017

var
  x,y:real;
begin
  Write('Введите координаты точки: '); Read(x,y);
  Writeln((ylt;=(23-4*x)/3) and (ygt;=(5*x-22)/3) and (xgt;=2))
end.

Пример
Введите координаты точки: 3 2.1
True