По координатам трех точек на плоскости (в пространстве) определить, лежат ли они на одной прямой - Pascal ABC

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

Листинг программы

if (x1-x3)*(y2-y3)=(x2-x3)*(y1-y3) then write('лежат на 1 прямой')
else write('не лежат на 1 прямой');

Объяснение кода листинга программы

В первой строке кода происходит проверка условия с использованием формулы из задачи: if (x1-x3)(y2-y3)=(x2-x3)(y1-y3) then
Если условие выполняется, то выводится сообщение лежат на 1 прямой.
Если условие не выполняется, то выводится сообщение не лежат на 1 прямой.
Код не содержит вложенных списков.
Переменные в коде обозначены следующим образом: x1, x2, x3 - координаты первых трех точек на плоскости y1, y2, y3 - координаты первых трех точек на плоскости