Является ли решение задачи рациональным? Опции

[Extraneo]

Текст задачи такой:

Запросить стороны треугольника и определить, является ли он разносторонним, равнобедренным или равносторонним. Учесть условие : третья сторона не должна превышать сумму двух других, иначе треугольник не существует.

я немного усложнил условие и ввел возможность определения прямоугольного треугольника.
Рационально ли написана программа или можно упростить код? я новичок, и у меня есть привычка все усложнять.

uses
    crt;
var
   a,b,c: integer;
begin
     clrscr;
     writeln ('Vvedite dliny storon treugolnika ');
     readln (a,b,c);
     if (a=b) and (b=c)
        then
            writeln ('Treugolnik ravnostoronniy ')
        else
            if ((a=b) or (b=c) or (a=c)) and ((a<(b+c)) and (b<(a+c)) and (c<(a+b)))
               then
                   writeln ('Treugolnik ravnobedrenniy ')
               else
                   if ((a<>b) and (a<>c) and (b<>c)) and ((a<(b+c)) and (b<(a+c)) and (c<(a+b))) and not ((sqr(a)+sqr(b)=sqr©) or (sqr(b)+sqr©=sqr(a)) or (sqr(a)+sqr©=sqr(b)))
                      then
                          writeln ('Treugolnik raznostoronniy ')
                      else
                          if (sqr(a)+sqr(b)=sqr©) or (sqr(b)+sqr©=sqr(a)) or (sqr(a)+sqr©=sqr(b))
                             then
                                 writeln ('Treugolnik prjamougolniy ')
                             else
                                 writeln ('Dannogo treugolnika ne sushestvuet ');
     readln;
end.