Я только начал изучать паскаль,но примерно могу расписать тебе.
Я ввёл шесть переменных.
var a,b,c:Integer;
ma,mb,mc:Real;
Begin
WriteLn('Введите стороны треугольника;);
ReadLn(a,b,c);
if (a<b+c) and (b<a+c) and (c<a+b) then
begin
WriteLn('С такими длинами отрезков можно построить треугольник');
ma:=0.5*(sqrt(2*b*b+2*c*c-a*a));
mb:=0.5*(sqrt(2*a*a+2*c*c-b*b));
mc:=0.5*(sqrt(2*a*a+2*b*b-c*c));
Writeln('Длина медиан к стороне а=',ma,' ','к b=',mb,' ','к c=',mc);
end
else begin
WriteLn('Невозможно построить треугольник,введите другие стороны')
end;
end. Если что не правильно,поправьте.
