Принадлежит ли точка треугольнику? Delphi

[kazzz]

Даны действительные числа Х и У. Определить, принадлежит ли точка с координатами Х и У к заштрихованной плоскости.

Какое условие надо ввести? Заштрихованная плоскость - треугольник. все, кроме условия (If ...) имеется.



Напишите пожалуйста! Мозги вскипают, а надо срочно... Заранее благодарен.

program Project3;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var x,y:Real;
begin
  Writeln('x=');
  Readln(x);
  Writeln('y=');
  Readln(y);
  if            {Вот тут не знаю, что вводить!}                 then
  Writeln ('Podhodit')
  else
  Writeln ('Ne podhodit');
  Readln;
end.

[DomiNick]

{Вот тут не знаю, что вводить!}

А тут вводить формулы... Проще всего на WinApi сделать, но так как тут в консоли наверное нельзя...
Формулы трёх прямых... В данном случае (нужно ведь для данных координат с рисунка?) из-за симметрии несколько упрощается: (x<1) And (Abs(y)<x/2-0.5)
Вроде так...

[kazzz]

Сообщение от DomiNick

(x<1) And (Abs(y)<x/2-0.5)
Вроде так...

На практике не работает, я тоже так уже пытался(((

[DomiNick]

Извиняюсь, знак перепулал: +0.5

[kazzz]

Спасибо, но это тоже не работает. В итоге сам добил ее. Вот что получилось :

(y<=0.5*x+0.5) and (y>=-0.5*x-0.5) and (x<=1)