Определение принадлежности точки к прямой

Задача

Составить программу для определения лежит ли точка (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.