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

//Pascal ABC.NET 3.1 сборка 1219

Var
 x1,x2,x3,y1,y2,y3:integer;
 p1,p2:real;
begin
 readln(x1,y1,x2,y2,x3,y3);
 p1:=(y3-y1)/(y2-y1);
 p2:=(x3-x1)/(x2-x1);
 if p1=p2 then writeln(На одной прямой) else writeln(Не на одной прямой);
end.

Пример ввода:
1
1
2
2
3
3
Пример вывода:
На одной прямой