pascal if

[BlooD_xD]

Доброго вечера!
нужно написать программу, в которой вводишь 2 координаты - X и Y
есть фигура - http://cdn1.savepice.ru/uploads/2017...97ebd-full.jpg (треугольник справа, не обращайте внимания на линии проведенные ручкой слева)
если введенные координаты находятся внутри или на фигуре, то программа должна вывести на экран 1
если же нет, то 2
все это должно быть написано через оператор if
понимаю сам как сделать такую же программу, но, только если бы там был квадрат/прямоугольник
подскажите пожалуйста
заранее спасибо

[p51x]

А в чем проблема с треугольником? Для икса у вас будут числа, а для второй координаты легко выводятся формулы... вы же можете составить уравнение прямой по двум точкам?

[BlooD_xD]

var x,y,d,c:real;
begin
read (x,y);
d:=4*x+3*y-23;
c:=5*x-3*y-22;
if (x>=2) and (x<=5) and (y<=5) and (y>=-4)
then 
begin 
if (d<=0) or (c>=0)
then write (1)
else write (2);
end
else write (2);
end.

с верхним треугольником все получается, а вот с нижним все равно выводит 1 при координатах не принадлежащих этому треугольнику

[BlooD_xD]

доделал сам