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

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