treug

program treugolnik;
var x1,x2,x3,y1,y2,y3,x0,y0:integer;
procedure treug(x1,x2,x3,y1,y2,y3,x0,y0:integer);
var a,b,c:integer;
begin
  a:=(x1 - x0) * (y2 - y1) - (x2 - x1) * (y1 - y0);
  b:=(x2 - x0) * (y3 - y2) - (x3 - x2) * (y2 - y0);
  c:=(x3 - x0) * (y1 - y3) - (x1 - x3) * (y3 - y0);
  if((a<0)and(b<0)and(c<0))or((a>0)and(b>0)and(c>0)) then
  write('точка внури треугольника')
  else if ((a=0)and(abs(x1-x0)+abs(x2-x0)=abs(x2-x1))or
           (b=0)and(abs(x3-x0)+abs(x2-x0)=abs(x2-x3))or
           (c=0)and(abs(x3-x0)+abs(x1-x0)=abs(x1-x3))) then
  write('точка на стороне треугольника')
  else
  write('точка вне треугольника');
end;

begin
  write('первая точка: ');
  readln(x1,y1);
  write('вторая точка: ');
  readln(x2,y2);
  write('третья точка: ');
  readln(x3,y3);
  write('искомая точка: ');
  readln(x0,y0);
  treug(x1,x2,x3,y1,y2,y3,x0,y0);

end.