Выяснить, верно ли, что один треугольник целиком расположен внутри другого

uses crt;
const t=0.01;
{вычисление площади по координатам вершин}
function Plosh(x1,y1,x2,y2,x3,y3:real):real;
begin
Plosh:=abs(x1*(y2-y3)+x2*(y3-y1)+x3*(y1-y2))/2;
end;
{определение принадлежности точки треугольнику}
function Prin(x1,y1,x2,y2,x3,y3,x,y:real):boolean;
var s,s1,s2,s3:real;
begin
s:=Plosh(x1,y1,x2,y2,x3,y3);
s1:=Plosh(x1,y1,x2,y2,x,y);
s2:=Plosh(x1,y1,x3,y3,x,y);
s3:=Plosh(x2,y2,x3,y3,x,y);
{если сумма площадей трех маленьких треугольников=
площади большого с заданной точностью, то принадлежит}
Prin:=abs(s-s1-s2-s3)<=t;
end;
var x1,y1,x2,y2,x3,y3,x4,y4,x5,y5,x6,y6:real;
    s,s1,s2:real;
begin
clrscr;
writeln('Введите координаты первого треугольника:');
readln(x1,y1,x2,y2,x3,y3);
writeln('Введите координаты второго треугольника:');
readln(x4,y4,x5,y5,x6,y6);
if (Prin(x1,y1,x2,y2,x3,y3,x4,y4)
   and Prin(x1,y1,x2,y2,x3,y3,x5,y5)
   and Prin(x1,y1,x2,y2,x3,y3,x6,y6))
or (Prin(x4,y4,x5,y5,x6,y6,x1,y1)
   and Prin(x4,y4,x5,y2,x6,y6,x2,y2)
   and Prin(x4,y4,x5,y2,x6,y6,x3,y3)) then
  begin
   writeln('Один треугольник целиком принадлежит другому');
   s1:=Plosh(x1,y1,x2,y2,x3,y3);
   s2:=Plosh(x4,y4,x5,y5,x6,y6);
   s:=abs(s1-s2);
   writeln('Площадь непересечения=',s:0:2);
  end
else writeln('Ни один треугольник целиком не принадлежит другому');
readln
end.