Ответ:

var x1,y1,x2,y2,x3,y3,a,b:real;

begin

write('A: '); readln(x1,y1);

write('B: '); readln(x2,y2);

write('C: '); readln(x3,y3);

a:=(y2-y1)/(x2-x1);

b:=y2-a*x2;

if y3=a*x3+b

 then writeln('Точки лежат на одной прямой')

 else writeln('Точки не лежат на одной прямой');

end.

Пример:

A: 1 1

B: 2 3

C: 3 5

Точки лежат на одной прямой

Подробнее - на Znanija.com - znanija.com/task/19115941#readmore

Объяснение: