Составить программу для определения лежит ли точка (x3; y3), на прямой проходящей через точки (x1; y1), C(x2; y2).
Uses Crt;
Var x1,x2,x3,y1,y2,y3 : real;
Begin
ClrScr;
Write('x1=');
Readln(x1);
Write('y1=');
Readln(y1);
Write('x2=');
Readln(x2);
Write('y2=');
Readln(y2);
Write('x3=');
Readln(x3);
Write('y3=');
Readln(y3);
If (x3-x1)*(y2-y1)-(y3-y1)*(x2-x1)=0
Then Write('лежит')
Else Write('не лежит');
Readln;
End.