Заданы координаты трех точек плоскости. Эти точки не лежат на одной прямой. (программа Паскаль)

Question

Заданы координаты трех точек плоскости. Эти точки не лежат на одной прямой.

Answer 1

uses crt;
var x1,x2,x3,y1,y2,y3,s:real;
begin
s:=0;
write('Vvedite koordinaty: ');
readln(x1,y1,x2,y2,x3,y3);
s:=0.5*((x2-x1)*(y3-y1)-(x3-x1)*(y2-y1));{площадь треугольника}
if s=0 then write('Lejat na odnoy pryamoy')
else write('Ne lejat na odnoy pryamoy');
readkey;
end.