40 на плоскости заданы три точки. вычислите площадь треугольника, вершинами которого являются эти точки. проверьте, что эти точки лежат не на одной прямой (если точки лежат на одной прямой, то площадь треугольника равна 0).

var x1,x2,x3,y1,y2,y3,s: real;
begin
  write('координаты точек x y через пробел:  ');
  readln(x1,y1,x2,y2,x3,y3);
  s:=abs((x2-x1)*(y3-y1)-(x3-x1)*(y2-y1))/2;
  if s=0 then writeln('точки лежат на одной прямой')
  else writeln('площадь треугольника = ',s);
end.    

координаты точек x y через пробел:  -5 1 -3 4 -1 2
площадь треугольника = 5

координаты точек x y через пробел:  1 3 2 4 4 6
точки лежат на одной прямой