sample019.PAS

{* Вычисление длины отрезка |AB| *}

Unit SAMPLE019;
Interface
Implementation
Begin
 writeln('Вычисление длины отрезка |AB|');
End.

Program pas;

Uses sample019.pas; {* Эту строку можно удалить *}
Var {* Необходимые переменные *}
  x1 : real;
  y1 : real;
  x2 : real;
  y2 : real;
  d  : real;
Begin
  writeln('введите A(X1, Y1) и B(X2, Y2)');
  readln( x1, y1, x2, y2 );
  d := sqrt(sqr(y2 - y1) + sqr(x2 - x1));
  writeln('длина отрезка |AB| = ', d);
End.