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

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

Program pas;

Uses spl19.pas; {* Эту строку можно удалить *}
{ вычисление длины отрезка, зная координаты A и B }
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.