вычислите длины высот равнобедренного треугольника

[Feil]

Введите три числа.Если они могут быть длинами сторон равнобедренного треугольника то вычислите длины его высот . Выведите длину основания и длины высот в порядке возрастания. <<== Незнаю как решить.Хотелось бы
получить ответ решения.

[MyLastHit]

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

  var a,b,c,ha,hb,hc,osn,s,p:real;
begin
  Writeln('Vvedi 3 chisla');
  readln(a,b,c);
  p:=(a+b+c);
  s:=sqrt(p*(p-a)*(p-b)*(p-c));

  ha:=2*s/a;
  hb:=2*s/b;
  hc:=2*s/c;
  if a=b  then begin osn:=c;
  writeln(' ha= ',ha:4:1,' hb=  ',hb:4:1,'  hc= ',hc:4:1,' osnov= ',osn:4:1);end;
  if a=c  then begin
  osn:=b;
  writeln(' ha= ',ha:4:1,' hb=  ',hb:4:1,'  hc= ',hc:4:1,' osnov= ',osn:4:1);end;
  if b=c  then begin
  osn:=a;
  writeln(' ha= ',ha:4:1,' hb=  ',hb:4:1,'  hc= ',hc:4:1,' osnov= ',osn:4:1);end;
  readln;
  readln

end.