Треугольник задан длинами сторон. Найти длины медиан - надо в Паскале

Предыдущий
вопрос Следующий
вопрос

Пример реализации программы на языке Pascal для нахождения длин медиан треугольника, заданного длинами сторон:

program medians;
var
a, b, c, m1, m2, m3: real;
begin
writeln('Введите длины сторон треугольника:');
readln(a, b, c);
m1 := 0.5 * sqrt(2 * b*b + 2 * c*c - a*a);
m2 := 0.5 * sqrt(2 * a*a + 2 * c*c - b*b);
m3 := 0.5 * sqrt(2 * a*a + 2 * b*b - c*c);
writeln('Длины медиан треугольника:');
writeln('m1 = ', m1:0:2);
writeln('m2 = ', m2:0:2);
writeln('m3 = ', m3:0:2);
end.

Этот код считывает длины сторон треугольника, а затем вычисляет и выводит длины медиан треугольника.