Дана точка а (х,у). определить, принадлежит ли она прямоугольнику с вершинами в точках (х1,у1), (х2,у2), (х3,у3), (х4,у4) на паскале

// pascalabc.net 3.3, сборка 1627 от 27.01.2018 // внимание! если программа не работает, обновите версию! begin   var n: =4;   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 i< n do begin       if ((yp[i]< =y) and (y< yp[j]) or (yp[j]< =y) and (y< yp [i]))           and (x< (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. примеры введите парами координаты четырех вершин   1 4 6 9 9 6 4 1 введите координаты точки: 1.5 1.6 не внутри введите парами координаты четырех вершин 1 4 6 9 9 6 4 1 введите координаты точки: 4 7 внутри

Function sq(var x1,y1,x2,y2,x3,y3: real): real; begin // вычисляем площадь треугольника с   // векторного произведения    sq: =abs((x2-x1)*(y3--x1)*(y2-y1))/2; end; // основная программа var x,y,x1,y1,x2,y2,x3,y3,x4,y4,st,sp: real; begin   write('координаты 4 вершин x1 y1 x2 y2 x3 y3 x4 y4 через пробел:   ');   readln(x1,y1,x2,y2,x3,y3,x4,y4);   sp: =2*sq(x1,y1,x2,y2,x3,y3);   write('координаты точки x y через пробел:   '); readln(x,y);   st: =sq(x1,y1,x2,y2,x,y) + sq(x2,y2,x3,y3,x,y) +           sq(x3,y3,x4,y4,x,y) + sq(x4,y4,x1,y1,x,y);   if abs(sp-st)< 1.0e-9 then       writeln('точка принадлежит прямоугольнику')   else writeln('точка не принадлежит прямоугольнику');     end.координаты 4 вершин x1 y1 x2 y2 x3 y3 x4 y4 через пробел:   1 4 6 9 9 6 4 1 координаты точки x y через пробел:   4 7 точка принадлежит прямоугольникукоординаты 4 вершин x1 y1 x2 y2 x3 y3 x4 y4 через пробел:   1 4 6 9 9 6 4 1 координаты точки x y через пробел:   1.5 1.6 точка не принадлежит прямоугольнику

Диаграмма и файл эксель-2003 во вложении.