Составить программу для определения непринадлежности точки к отрезку.

x1, y1 - начло отрезкаx2, y2 - конец отрезкаx0, y0 - координаты точки принадлежность которой мы будем проверятьВывод будет True, если принадлежит, False, если не принадлежит.Программа:program fff;const   _Eps: Real = 1e-3;var  x0, y0, x1, y1, x2, y2 : real;  tmp : boolean;  begin  readln(x1, y1);  readln(x2, y2);    readln(x0, y0);    tmp := ((x0 - x1) * (y2 - y1) - (y0 - y1) * (x2 - x1)) <= _Eps;  tmp := tmp and ( ((x1 < x0) and (x0 < x2)) or ((x2 < x0) and (x0 < x1)) );    write(tmp);  end.