{ x1, y1 - координаты первой точки, } { x2, y2 - координаты второй точки. } var x1, y1, x2, y2, 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.
