var x1,x2,x3,y1,y2,y3: real;
begin
readln(x1,y1,x2,y2,x3,y3);
if (x1*y2+x3*y1+x2*y3-x3*y2-x2*y1-x1*y3=0) then
writeln('Лежат')
else
writeln('Не лежат')
end.
P.S. Боюсь, не вполне понятно, откуда этот крокодил. На самом деле, это проверка равенства
Да будут расположенны на одной прямой ( надо построить граффик с осями х и у проставить числа и провести линию)
var x1,x2,x3,y1,y2,y3: real;
begin
readln(x1,y1,x2,y2,x3,y3);
if (x1*y2+x3*y1+x2*y3-x3*y2-x2*y1-x1*y3=0) then
writeln('Лежат')
else
writeln('Не лежат')
end.
P.S. Боюсь, не вполне понятно, откуда этот крокодил. На самом деле, это проверка равенства
Да будут расположенны на одной прямой ( надо построить граффик с осями х и у проставить числа и провести линию)