Довести до ума программу

program Treygolniki;
uses
 crt;
var
 a,b,c : real;
begin
 Write(Vvedite storonbI treygolnika');
 Readln(a,b,c);
  if (a<>b) and (c<a+b) and (a<>c) and (b<a+c) and (b<>c) and (a<a+b)
   then Write('Treygolnik raznostoronniy')
  else
   if (a=b) and (a<>c) and (c<a+b) or ((b=c) and (a<>b) and (a<a+b)) or ((a=c) and (a<>b) and (b<a+b))
   then Write('Treygolnik ravnobedrennyu')
  else
   if (a=b) and (a=c) and (b=c)
    then Write('Treygolnik ravnostoronnyu')
   else
  Readln;
end.

program Treygolniki;
uses crt;
var  a,b,c : real;
begin
Writeln('Vvedite storonbI treygolnika');
Readln(a,b,c);
if(a>=b+c)or(b>=a+c)or(c>=a+b) then write('Ne treugolnik!')
else  if (a<>b) and (c<a+b) and (a<>c) and (b<a+c) and (b<>c) and (a<a+b)
then Write('Treygolnik raznostoronniy')
else
if (a=b) and (a<>c) and (c<a+b) or ((b=c) and (a<>b) and (a<a+b)) or ((a=c) and (a<>b) and (b<a+b))
then Write('Treygolnik ravnobedrennyu')
else if (a=b) and (a=c) and (b=c)
then Write('Treygolnik ravnostoronnyu');
Readln
end.