В таких задачах основное - составить уравнения линий, ограничивающие заданный контур.
Уравнение прямой, проходящей через две точки, можно записать в виде 
Первая линия (показана красным цветом) проходит через точки A(2;5) и В(5;1). Подставляя значения в (1) получаем
Вторая линия (показана синим цветом) проходит через точки В(5;1) и С(2;-4). Подставляя значения в (1) получаем
Вторая линия (показана зеленым цветом) имеет уравнение х=2.
Границы, а также внутренняя часть контура, составленного этими тремя линиями (треугольник) принадлежат одновременно трем областям, показанным цветными заливками. Каждая область определяется математическим неравенством. Если область лежит выше линии y=F(x), то y≥F(x), а если ниже, то y≤F(x)
Тогда для красной области
для синей области
и для зеленой области х≥2
А контур описывается совокупностью этих трех условий, объединенных логическим "И".
Условие (2) является логическим выражением и его значением в программе будет true/false, что и требуется по условию.
// PascalABC.NET 3.2, сборка 1379 от 21.01.2017
var
x,y:real;
begin
Write('Введите координаты точки: '); Read(x,y);
Writeln((y<=(23-4*x)/3) and (y>=(5*x-22)/3) and (x>=2))
end.
Пример
Введите координаты точки: 3 2.1
True
