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

[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.