Введите три числа. Если они могут быть длинами сторон равнобедренного остроугольного....

Ребят,подскажите пожалуйста как проверить могут ли быть стороны длинами равнобедренного остроугольного треуг. Не могу понять ,как проверить именно на остроугольный треугольник ,в геометрии 0. Помогите пожалуйста

var a, b, c, d :real;
      k:integer;
begin
   read (a, b, c);
   k:=0;if b=c then
      begin
      d:=c;
      c:=a;
      a:=d;
      end;
   if a=c then
      begin
      d:=c;
      c:=b;
      b:=d;
      end;
   if (a=b) and (a+b>c) then inc(k);
   if a+b<=c then k:=2;
   if k=0 then writeln (Треугольник не равнобедренный);
   if k=2 then writeln (Это вообще не треугольник);
   if k=1 then    
      begin   
      d:=sqrt(a*a+b*b);   
      if d>c then writeln(остроугольный равнобедренный);
      if d
      if d=c then writeln(прямоугольный равнобедренный);
      end;
end.
P,S, Надеюсь на благодарность и лучший ответ.