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

Question

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

Answer 1

var
x1, x2, x3, AC, BC: real;

begin
writeln('Введите координаты точек A, B, C: ');
readln(x1, x2, x3);
AC := abs(x3 - x1); { <-- расстояние между точками A и C }
BC := abs(x3 - x2); { <-- расстояние между точками B и C }
writeln(' AC * BC = ', AC * BC);
readln
end.