Begin17. Даны три точки A, B, C на числовой оси. Найти длины отрезков AC и BC и их сумму.
var xa, xb, xc, ac, bc, s: real;
begin
  write('Введите координаты точек A, B и C на числовой оси ->');
  readln(xa, xb, xc);
  ac:=abs(xc-xa);
  bc:=abs(xc-xb);
  s:=ac+bc;
  writeln('Длина отрезка AC = ', ac:6:2);
  writeln('Длина отрезка BC = ', bc:6:2);
  writeln('Сумма длин отрезков = ', s:6:2);
end.