Заданы координаты 3-х точек плоскости. Эти точки не лежат на одной

uses crt;
var x1,x2,x3,y1,y2,y3,s:real;
begin
s:=0;
write(Vvedite koordinaty: );
readln(x1,y1,x2,y2,x3,y3);
s:=0.5*((x2-x1)*(y3-y1)-(x3-x1)*(y2-y1));площадь треугольника
if s=0 then write(Lejat na odnoy pryamoy)
else write(Ne lejat na odnoy pryamoy);
readkey;
end.