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

Program Begin18;
Var
A,B,C:Real;
Begin
ReadLn(A,B,C);
WriteLn('Mul = ',Abs(C-A) * Abs(B-C));
End.

автор: Sklyarov Sergej a.k.a. S9