Найти принадлежность точки данному выпуклому многоугольнику. На паскаль abs, питон либо

Могу на современном PascalABC.NET написать, на Pascal ABC лениво, это теснее не язык, а пережиток прошедшего.

давайте

PascalABC.NET 3.4.0, сборка 1671 от 31.05.2018
Внимание! Если программка не работает, обновите версию!

begin
  var n:=ReadInteger('Число сторон многоугольника:');
  var xp:=new real[n];
  var yp:=new real[n];
  Writeln('Введите парами координаты вершин');
  for var i:=0 to n-1 do Read(xp[i],yp[i]);
  var (x,y):=ReadReal2('Введите координаты точки:');
  var (i,j,c):=(0,n-1,False);
  while ilt;n do begin
    if ((yp[i]lt;=y) and (ylt;yp[j]) or (yp[j]lt;=y) and (ylt;yp [i]))
      and (xlt;(xp[j]-xp[i])*(y-yp[i])/(yp[j]-yp[i])+xp[i]) then c:=not c;
    j:=i;
    i+=1;
    end;
  if c then Writeln('Внутри')
  else Writeln('Не снутри')
end.

Образцы
Число сторон многоугольника: 5
Введите парами координаты вершин
-5 2 2 6 7 3.1 4.3 -5 -6 -6
Введите координаты точки: 2.1 1.7
Внутри

Число сторон многоугольника: 5
Введите парами координаты вершин
-5 2 2 6 7 3.1 4.3 -5 -6 -6
Введите координаты точки: -2 5
Не внутри