algoritmo Triângulo - Dizer se é: Isósceles, Escaleno e Equilátero

[Bolseiro 0]

Olá, alguém pode ajudar, por favor? Abaixo está o que se pede o exercício e o algoritmo. Equilatero e escalemo está ok. 

 

Mas isósceles não. Se coloca dois iguais e um diferente não está escrevendo a mensagem. Tem algo errado. Alguém pode/sabe dizer o por quê?

 

Triângulo é uma forma geométrica (polígono) composta por três lados, onde cada lado é menor que a soma dos outros dois. Escrever um algoritmo que lê três valores (A, B, C) e escreve uma mensagem informando que tipo de triângulo estes lados forma, sabendo - se que:

Isósceles = dois lados iguais e um diferente;

Escaleno = todos os lados diferentes;

Equilátero = todos os lados iguais.

 

 

algoritmo "semnome"
// Função :
// Autor :
// Data : 20/09/2017
// Seção de Declarações
var
a,b,c: real
inicio
escreva (" Lado 1: ")
leia (a)
escreva (" Lado 2: ")
leia (b)
escreva (" Lado 3: ")
leia (c)

 Se (a=b) e (a=c) e (b=c) entao
 escreva (" O triângulo é equilatero! ")

senao
 se (a=c) e (a<>b) entao
  se (b=c) e (b<>a) entao
   se (c=b) e (c<>a) entao
    se (a=b) e (a<>c) entao
     se (b=a) e (b<>c) entao
      se (c=a) e (c<>b) entao

 

escreva (" O triangulo é isosceles ")

 

       fimse
      fimse
     fimse
    fimse
   fimse
  fimse
 fimse
 
se (a<>b) e (b<>c) e (a<>c) entao
escreva (" O triângulo é escalemo! ")
fimse
// Seção de Comandos
fimalgoritmo

[Bolseiro 0]

Alguém?