Определить, является ли точка веpшиной N-угольника

const
  eps = 0.000001;
 
type
  tPoint = record
    X, Y : Integer;
  end;
 
function sTr(A, B, C : tPoint) : Real;
begin
  sTr := Abs(A.X*(B.Y-C.Y) + B.X*(C.Y-A.Y) + C.X*(A.Y-B.Y)) / 2;
end;
 
function inTriangle(P, A, B, C : tPoint) : Boolean;
begin
  inTriangle := Abs(sTr(A,B,C) - sTr(A,B,P) - sTr(A,P,C) - sTr(P,B,C)) < eps;
end;
 
var
  N, i : Integer;
  A : array [1..100] of tPoint;
  P : tPoint;
  
begin
  WriteLn('Число вершин:');
  Write('N = '); ReadLn(N);
  WriteLn('Координаты вершин выпуклой фигуры:');
  for i := 1 to N do
    begin
      Write('X', i, ' = '); ReadLn(A[i].X);
      Write('Y', i, ' = '); ReadLn(A[i].Y);
    end;
  WriteLn('Координаты точки:');
  Write('X = '); ReadLn(P.X);
  Write('Y = '); ReadLn(P.Y);
  
  for i := 1 to N do
    if Abs(A[i].X - P.X) + Abs(A[i].Y - P.Y) < eps then
      begin
        WriteLn('Точка является вершиной.');
        Exit;
      end;
      
  for i := 2 to N-1 do
    if inTriangle(P, A[1], A[i], A[i+1]) then
      begin
        WriteLn('Точка принадлежит заданной выпуклой фигуре.');
        Exit;
      end;
      
  WriteLn('Точка не принадлежит заданной фигуре.');
end.