{* Задача 100 *}

Unit ZADACH100;
Interface
Implementation
Begin
 writeln('

Составить программу для определения лежит ли точка (x3;y3),

на прямой проходящей через точки (x1;y1), C(x2;y2) ');
End.

Program pas13405;

Uses zadach100.pas; {* Эту строку можно удалить *}
Uses crt; {* Вызов внешних функций *}
Var {* Объявление переменных *}
  x1 : real;
  x2 : real;
  x3 : real;
  y1 : real;
  y2 : real;
  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; {* Ждем нажатия Enter *}
End.