uses crt;
var a,b,c,p,h:real;
begin
clrscr;
writeln('Введите длины сторон треугольника:');
readln(a,b,c);
if(a<=0)or(b<=0)or(c<=0)or(a>=b+c)or(b>=a+c)or(c>=a+b) then
begin
write('Эти отрезки не могут быть длинами сторон треугольника');
readln;
exit;
end;
p:=(a+b+c)/2;
h:=2*sqrt(p*(p-a)*(p-b)*(p-c))/a;
writeln('Длина высоты, опущенной на сторону А=',h:0:2);
readln
end.
1