Triângulos ?

Oi galera, queria ajuda para descobrir meu erro.Eu uso o visuAlg.

algoritmo "semnome"

//Escreva um programa que leia 3 valores. Verificar se eles formam um triângulo equilátero

//ou isósceles, sabendo que o triângulo equilátero possui todos os lados iguais e o triângulo

//isósceles possui dois lados iguais e um diferente. Caso os valores formarem um desses

//tipos de triângulo mostrar uma mensagem dizendo o tipo de triângulo formado, caso não

//formarem nenhum dos triângulos citados informarem que os valores não formam triângulo

//equiláteros e nem isósceles.

var

a,b,c: real

inicio

// Seção de Comandos

leia (a,b,c)

se (a=b ) e (b=c) entao

escreva ("Triângulos equilátero")

se (a=b ) ou (b=c) ou (c=a) entao

escreva ("Triângulo isóscele")

senao

escreva ("Não forma triângulo equilátero e nem isóscele")

fimse

fimse

fimalgoritmo