не удается вычислить длины его высот и напечатайте их в порядке убывания.

[svoi92]

Пусть даны три числа. Если они могут быть длинами сторон треугольника, определите его вид (разносторонний, равнобедренный, равносторонний). Вычислите длины его высот и напечатайте их в порядке убывания.

uses crt;
var a,b,c:integer;
h1,h2,h3,s:real;
begin
clrscr;
write ('vvedite storony a: ');
readln (a);
write ('vvedite storony b: ');
readln (b);
write ('vvedite storony c: ');
readln (c);
if (a=b) and (b=c) and (c=a) then
begin
writeln ('ravnostoronnii');
h1:=(a*sqrt(3))/2;
writeln ('h1=',h1);

end
else
if (a=b) or (b=c) or (c=a) then
begin
writeln ('ravnobedrennii');
h1:=1/2*sqrt(4*sqr(a)*sqr(c));
h2:=
end
else
begin
writeln ('raznostoronii');
end;
h3:=(2*s)/a;
if (h1>h2) and (h1>h3) then
if h2>h3 then writeln (h3:10:2,h2:10:2,h1:10:2)
else if h2<h3 then writeln (h2:10:2,h3:10:2,h1:10:2);
if (h2>h1) and (h2>h3) then
if h1>h3 then writeln (h3:10:2,h1:10:2,h2:10:2)
else if h1<h3 then writeln (h1:10:2,h3:10:2,h2:10:2);
if (h3>h1) and (h3>h2) then
if h1>h2 then writeln (h2:10:2,h1:10:2,h3:10:2)
else if h1<h2 then writeln (h1:10:2,h2:10:2,h3:10:2);
readln;
end.

[Наки]

Попробуй такой код.
Высоты вычисляются с использованием теоремы косинусов.

И при сортировке вместо < или > лучше ставить <= или >=, потому что высоты могут быть одинаковые.

uses crt;
var a,b,c:integer;
h1,h2,h3,s:real;
begin
clrscr;
write ('vvedite storony a: ');
readln (a);
write ('vvedite storony b: ');
readln (b);
write ('vvedite storony c: ');
readln (c);

if (a=b) and (b=c) and (c=a) then
writeln ('ravnostoronnii')
else
if (a=b) or (b=c) or (c=a) then
writeln ('ravnobedrennii')
else
writeln ('raznostoronii');

h1:=a*sqrt(1-sqr((a*a+b*b-c*c)/(2*a*b)));
h2:=b*sqrt(1-sqr((b*b+c*c-a*a)/(2*b*c)));
h3:=c*sqrt(1-sqr((a*a+c*c-b*b)/(2*a*c)));

if (h1>=h2) and (h1>=h3) then
if h2>=h3 then writeln (h3:10:2,h2:10:2,h1:10:2)
else if h2<=h3 then writeln (h2:10:2,h3:10:2,h1:10:2);
if (h2>=h1) and (h2>=h3) then
if h1>=h3 then writeln (h3:10:2,h1:10:2,h2:10:2)
else if h1<=h3 then writeln (h1:10:2,h3:10:2,h2:10:2);
if (h3>=h1) and (h3>=h2) then
if h1>=h2 then writeln (h2:10:2,h1:10:2,h3:10:2)
else if h1<=h2 then writeln (h1:10:2,h2:10:2,h3:10:2);
readln;
end.