Найти произведение длин АВ и АС - PascalABC.NET

Формулировка задачи:

Даны три точки А, В, С на числовой оси. Точка А расположена между точками С и В. Найти произведение длин АВ и АС. Как правильно написать , чтобы если А находится между произведение искалось , а если нет , то не искалось )

Решение задачи: «Найти произведение длин АВ и АС»

Листинг программы

var a,b,c,p:real;
begin
writeln('Введите значение a,b,c');
readln(a,b,c);
if((a>b)and(a<c))or((a<b)and(a>c))then
 begin
  p:=abs(a-b)*abs(a-c);
  write('Произведение длин AB*AC=',p:0:2);
 end
else write('Точка А не находится между точек В и С');
end.

Объяснение кода листинга программы

Объявлены четыре переменные: a, b, c и p типа real.
Выводится запрос на ввод значений переменных a, b и c.
Если условие (a>b)and(a<c) выполняется, то выполняется блок кода, в противном случае выводится сообщение Точка А не находится между точек В и С.
Вычисляется значение переменной p как произведение абсолютных значений разностей a-b и a-c.
Выводится сообщение с значением переменной p, отформатированным до двух знаков после запятой.