На числовой оси расположены три точки.. - Turbo Pascal

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

НА числовой оси распложены три точки: A,B,C. Определить, какая из двух последних точек (B и С) расположена ближе к A , и вывести эт у точку и её расстояние от точки A. Благодарствую заранее...

Решение задачи: «На числовой оси расположены три точки..»

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

var ab,ac,x1,x2,x3,y1,y2,y3:real;
begin
writeln('координаты точки А: ');read(x1,y1);
writeln('координаты точки B: ');read(x2,y2);
writeln('координаты точки C: ');read(x3,y3);
ab:=sqrt(sqr(x2-x1)+sqr(y2-y1));
ac:=sqrt(sqr(x3-x1)+sqr(y3-y1));
if ab>ac then write('ab=',ab,' ',x2,';',y2) else   write('ac=',ac,' ',x3,';',y3);
end.

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

Объявляются переменные ab, ac, x1, x2, x3, y1, y2, y3 типа real.
Выводится сообщение с просьбой ввести координаты точек А, В и С.
Вводятся координаты точек А, В и С с помощью функции read.
Вычисляются расстояния между точками А и В, а также между точками В и С с помощью функции sqr и формулы расстояния между двумя точками в декартовой системе координат.
Вычисляется гипотенуза прямоугольного треугольника, образованного точками А и В с помощью функции sqrt.
Вычисляется гипотенуза прямоугольного треугольника, образованного точками В и С с помощью функции sqrt.
Сравниваются полученные значения и выводится сообщение о том, какая из них больше.
Если значение переменной ab больше значения переменной ac, то выводится сообщение с координатами точек А и y1, если нет - выводится сообщение с координатами точек В и y2.