{* Задача 101 *}

Unit ZADACH101;
Interface
Implementation
Begin
 writeln('

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

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

Program pas0;

Uses zadach101.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключение модулей *}
Var {* Объявление переменных *}
  x1 : real;
  x2 : real;
  x3 : real;
  y1 : real;
  y2 : real;
  y3 : real;
  a  : real;
  b  : real;
  c  : real;
  d  : real;
  t  : 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);
  a := y2 - y1;
  b := x1 - x2;
  c := - x1 * (y2 - y1) + y1 * (x2 - x1);
  t := sqrt(a * a + b * b);
  d := abs((a * x3 + b * y3 + c) / t);
  write('расстояние =', d);
  readln; {* Ждем нажатия Enter *}
End.