Выяснить, лежит ли на одной прямой точки А (x1, y1), B (x2, y2), C (x3, y3). Координаты точек вводятся пользователем с клавиатуры, результат работы программы выводится на экран

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

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