066536 / 54

program abc;
var a,b,c,p,x1,x2,x3,y1,y2,y3:real;
function S(x1,x2,x3,y1,y2,y3:real):real;
Begin
a:=sqrt(sqr(x1-x2)+sqr(y1-y2));
b:=sqrt(sqr(x2-x3)+sqr(y2-y3));
c:=sqrt(sqr(x1-x3)+sqr(y1-y3));
p:=(a+b+c)/2;
S:=sqrt(p*(p-a)*(p-b)*(p-c));
end;
Begin
Writeln('введите координаты треугольника');
writeln('точка A');
readln(x1,y1);
writeln('точка B');
readln(x2,y2);
writeln('точка C');
readln(x3,y3);
if (S(x1,x3,0,y1,y3,0))+(S(x2,x3,0,y2,y3,0))+(S(x1,x2,0,y1,y2,0))>(S(x1,x2,x3,y1,y2,y3))
then writeln ('пересечение осей лежит вне треугольника')
else writeln ('пересечение осей лежит в треугольнике');
end.