Verifica se 3 lados Formam Triangulo

program TrianguloMonitoria3;
uses crt;
   var
a  : integer;
b  : integer;
c  : integer;
begin
write('Digite o Primeiro Numero: ');
readln(a);
write('Digite o Segundo Numero: ');
readln(b);
write('Digite o Trceiro Numero: ');
readln(c);
     //se for triangulo
     if((a<b+c) and (b< a+c) and (c<a+b)) then

     //se tiver 2 lados iguais
        if(a=b) or (b=c) or (c=a) then

             if(a=b) and (b=c) then //verifica se equilatero
             writeln('Triangulo Equilatero')
             else
              writeln('Triangulo Isoceles')
        else
        writeln('Triangulo Escaleno')
      else
     writeln('Nao e Tiangulo');


readkey;
end.