var x1,x2,y1,y2,d:real;
begin
write('Введите координаты');
readln(x1,x2,y1,y2);
d:=sqrt(sqr(x2-x1)+sqr(y2-y1));
writeln(d);
readln;
end.
var x1,x2,y1,y2,d:real;
begin
write('Введите координаты');
readln(x1,x2,y1,y2);
d:=sqrt(sqr(x2-x1)+sqr(y2-y1));
writeln(d);
readln;
end.