Create a program for calculating the lengths of the medians of a triangle, in which the lengths of the sides are a, b, c.

var a, b, c, a1, b1, c1: integer; / variables of integer type;
ma, mb, mc: real; / variables of real type;
function f: real; / function of real type;
begin / block in which we define the function
f: = sqrt ((2 * a1 * a1 + 2 * b1 * b1 – c1 * c1) / 4);
end;
begin
write (‘a =’); readln (a); / Enter from the keyboard a;
write (‘b =’); readln (b); / Enter from the keyboard b;
write (‘c =’); readln (c); / Enter from the keyboard with;
a1: = a; b1: = b; c1: = c; mc: = f; / assign a value to use in a function;
a1: = c; b1: = b; c1: = a; ma: = f;
a1: = a; b1: = c; c1: = b; mb: = f;
writeln (‘The medians are:’, ma: 1: 3, ‘|’, mb: 1: 3, ‘|’, mc: 1: 3); / We display what happened
readln
end.