Нужно сделать программу на паскале.Определить нахождение точки заштрихованой области.Срочно Пожалуйста посчитайте пожалуйста!!!!!

1. Получим уравнения прямых, образующих стороны треугольника.
Уравнение прямой, проходящей через две точки с известными координатами можно записать в виде

Для точек с координатами (-2;-1) и (-1;1) получаем

Для остальных двух прямых аналогичным образом находим
y=(2-x)/3 и y=(x-2)/4

2. Составляем условие принадлежности точки треугольнику
Если точка находится внутри треугольника, то она должна располагаться ниже первой прямой, ниже второй и выше третьей:
y<2x+3 ∧ y<(2-x)/3 ∧ y>(x-2)/4
Если точка принадлежит хотя бы одной из сторон треугольника, условие будет таким:
y=2x+3 ∨ y=(2-x)/3 ∨ y=(x-2)/4

3. Пишем программу




begin
  var (x,y):=ReadReal2('Введите x и y');
  if (y<2*x+3) and (y<(2-x)/3) and (y>(x-2)/4) then
    Writeln('Точка находится внутри треугольника')
  else
    if (y=2*x+3) or (y=(2-x)/3) or (y=(x-2)/4) then
      Writeln('Точка находится на контуре треугольника')
    else
      Writeln('Точка находится вне треугольника')
end.


Введите x и y -0.4 0.7
Точка находится внутри треугольника