Вычислить длины средних линий треугольника - Pascal ABC

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

1. Дан треугольник, заданный координатами его вершин. Вычислить длины его средних линий.

Решение задачи: «Вычислить длины средних линий треугольника»

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

function sr_ln(x1,y1,x2,y2,x3,y3:real):real;
var ax,ay,bx,by:real;
begin
ax:=(x1+x2)/2;
ay:=(y1+y2)/2;
bx:=(x1+x3)/2;
by:=(y1+y3)/2;
sr_ln:=sqrt(sqr(ax-bx)+sqr(ay-by));
end;
var x1,y1,x2,y2,x3,y3:real;
begin
writeln('Введите координаты вершин треугольника');
readln(x1,y1,x2,y2,x3,y3);
writeln('Длины его средних линий');
write(sr_ln(x1,y1,x2,y2,x3,y3):0:2,' ',sr_ln(x2,y2,x1,y1,x3,y3):0:2,' ',
      sr_ln(x3,y3,x2,y2,x1,y1):0:2);
end.

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

В функции sr_ln объявлены четыре переменные типа real: ax, ay, bx, by.
Значения переменных ax и ay вычисляются как средние значения координат x и y первой и второй вершин треугольника соответственно.
Значения переменных bx и by вычисляются как средние значения координат x и y второй и третьей вершин треугольника соответственно.
Вычисляется длина средней линии треугольника по формуле sqrt(sqr(ax-bx)+sqr(ay-by)).
Результат вычисления длины средней линии треугольника сохраняется в переменной sr_ln.
В основной программе объявлены шесть переменных типа real: x1, y1, x2, y2, x3, y3.
Программа запрашивает у пользователя координаты вершин треугольника и сохраняет их в соответствующих переменных.
Вычисляются значения функций sr_ln для каждой вершины треугольника.
Выводится результат вычисления длины средней линии треугольника для каждой вершины.