Даны три точки A, B, C на числовой оси. Точка C расположена между точками A и B. Найти произведение длин отрезков AC и BC — Pascal(Паскаль)

program tchk3;
var X1, X2, X3: real;
begin
    write('Введите координаты трех точек A, B, C : ');
    read(X1, X2, X3);
    writeln('AC = ', abs(X3-X1)); 
    writeln('BC = ', abs(X3-X2));
    writeln('AC * BC = ', abs(X3-X1)* abs(X3-X2));
end.