Var
xa, xb, ya, yb: integer;
S: real;
begin
write('Введите значение xa=');read(xa);
write('Введите значение ya=');read(ya);
write('Введите значение xb=');read(xb);
write('Введите значение yb=');read(yb);
S:=sqrt(sqr(xb-xa)+sqr(yb-ya));
writeln('Длина отрезка=', S:5:1);
end.