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