Составить программу для определения лежит ли точка (x3; y3), на прямой проходящей через точки (x1; y1), C(x2; y2) — Pascal(Паскаль)

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.