Выяснить, существует ли треугольник с координатами вершин A(x1,y1), B(x2,y2), C(x3,y3).

uses crt;

var x1,y1,x2,y2,x3,y3,s:real;

begin

clrscr;

writeln('Введите координаты точки A:');

readln(x1,y1);

writeln('Введите координаты точки B:');

readln(x2,y2);

writeln('Введите координаты точки C:');

readln(x3,y3);

s:=abs(x1*(y2-y3)+x2*(y3-y1)+x3*(y1-y2))/2;

if s=0 then write('Точки лежат на одной прямой')

else write('Это треугольник, его площадь=',s:0:2);

readln

end.