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точки лежат на одной прямой