Заданы координаты трех точек плоскости

var x1,x2,x3,y1,y2,y3: real; beginreadln (x1,y1); readln (x2,y2); readln (x3,y3); if (x3-x1)*(y2-y1)=(x2-x1)*(y3-y1) then writeln ('lejat na pryamoi') else writeln ('ne lejat na pryamoi'); end.