Определить какая из точек A(x1, y1, z1), B(x2, y2, z2) ближе расположена к точке С(x3, y3, z3) - Pascal

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

написать программу решения следующей задачи: определить какая из точек A (x1, y1, z1) или B (x2, y2, z2) ближе расположена к точке С (x3, y3, z3). Ребят буду ооооочень признателен и благодарен написавшему эту программу на языке паскаль).

Решение задачи: «Определить какая из точек A(x1, y1, z1), B(x2, y2, z2) ближе расположена к точке С(x3, y3, z3)»

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

uses crt;
var x1,y1,z1,x2,y2,z2,x3,y3,z3,l1,l2:real;
begin
 clrscr;
 writeln('Vvedite koordinati tochki A');
 read(x1,y1,z1);
 writeln('Vvedite koordinati tochki B');
 read(x2,y2,z2);
 writeln('Vvedite koordinati tochki C');
 read(x3,y3,z3);
 l1:=sqrt(sqr(x1-x3)+sqr(y1-y3)+sqr(z1-z3));
 l2:=sqrt(sqr(x2-x3)+sqr(y2-y3)+sqr(z2-z3));
 writeln('AC=',l1);
 writeln('BC=',l2);
 if l1<l2 then writeln('A blige') else
  if l2<l1 then writeln('B blige') else writeln('Na ravnom rasstoyanii');
end.

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

В начале кода подключается библиотека crt, которая позволяет использовать функции стандартной библиотеки языка Pascal.
Затем объявляются переменные x1, y1, z1, x2, y2, z2, x3, y3, z3, l1, l2:real. Эти переменные будут использоваться для хранения координат точек A, B и C, а также для вычисления расстояний между этими точками.
Выводится сообщение 'Vvedite koordinati tochki A', после чего считываются координаты точки A. Аналогично считываются координаты точки B и точки C.
Вычисляется расстояние между точкой A и точкой C по формуле sqrt(sqr(x1-x3)+sqr(y1-y3)+sqr(z1-z3)). Результат сохраняется в переменной l1.
Вычисляется расстояние между точкой B и точкой C по формуле sqrt(sqr(x2-x3)+sqr(y2-y3)+sqr(z2-z3)). Результат сохраняется в переменной l2.
Выводится сообщение 'AC=', после чего выводится значение переменной l1, которое представляет собой расстояние между точками A и C.
Выводится сообщение 'BC=', после чего выводится значение переменной l2, которое представляет собой расстояние между точками B и C.
Сравниваются значения переменных l1 и l2. Если значение переменной l1 меньше значения переменной l2, выводится сообщение 'A blige'. Если значение переменной l2 меньше значения переменной l1, выводится сообщение 'B blige'. В противном случае выводится сообщение 'Na ravnom rasstoyanii'.