Question

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

Нужна программа в Паскале.

Answer 1

var x1,x2,x3,y1,y2,y3:real;
begin
readln(x1,y1);
readln(x2,y2);
readln(x3,y3);
if (x3-x1)*(y2-y1)=(x2-x1)*(y3-y1) then writeln('lejat na pryamoi') else writeln('ne lejat na pryamoi');
end.