program sr;
var xa, xb, ya, yb, otv: real;
begin
writeln('введите координаты первой точки через пробел ');
readln(xa, ya);
writeln('введите координаты второй точки через пробел ');
readln(xb, yb);
otv := Abs(sqrt(sqr(xa-xb)+sqr(ya-yb)));
writeln('расстояние между точками =', otv)
end.
program sr;
var xa, xb, ya, yb, otv: real;
begin
writeln('введите координаты первой точки через пробел ');
readln(xa, ya);
writeln('введите координаты второй точки через пробел ');
readln(xb, yb);
otv := Abs(sqrt(sqr(xa-xb)+sqr(ya-yb)));
writeln('расстояние между точками =', otv)
end.