Formação de um Triângulo - Por Gustavo Rodrigues

algoritmo "Triangulos"
// Questao (3) - Escreva um algoritimo que recebe os tres lados de um triangulo, verifique se pode formar um triangulo
// e mostre se ele é equilatero, escaleno ou isoceles. Caso contrario mostrar a mensagem "Os lados não formam um triangulo".
// lembrando que triangulo,
// **triângulo escaleno, as medidas dos três lados são diferentes
// **triângulo isósceles possui pelo menos dois lados de mesma medida
// **triângulo equilátero possui todos os lados iguais
var
a,b,c:real
inicio
// Seção de Comandos
escreval("Digite os tres lados do triangulo e apos cada valor confirme com enter.")
leia(a,b,c)

se (a<(b+c)) e (b<(a+c)) e (c<(a+b)) entao
//condicoes para a formacao de um triangulo

se (a=b) e (b=c) entao
escreval("Este é um triângulo equilátero, pois possui os tres lados iguais")
fimse

se (a<>b) e (b<>c) e (a<>c)entao
escreval("Este é um triângulo escaleno, pois possui os tres lados diferentes")
fimse

se (a=b) e (a<>c)entao
escreval("Este é um triângulo isósceles, pois possui dois lados iguais")
fimse

senao
escreval("Os lados não formam um triangulo.")
fimse
fimalgoritmo