algoritmo "triangulo"
// Função :
// Autor :
// Data : 7/4/2009
// Seção de Declarações 
var
   ValorX, ValorY, ValorZ     : INTEIRO
   Soma1, Soma2, Soma3        : INTEIRO
inicio
      LEIA (ValorX, ValorY, ValorZ)
      Soma1 <- ValorX + ValorY
      Soma2 <- ValorY + ValorZ
      Soma3 <- ValorX + ValorZ
      SE (ValorZ < Soma1) e (ValorX < Soma2) e (ValorY < Soma3) ENTAO
         SE (ValorX = ValorY) e (ValorX = ValorZ) e (ValorY = ValorZ) ENTAO
            ESCREVA ("Este é um triangulo equilatero")
         SENAO
            SE (ValorX = ValorY) ou (ValorX = ValorZ) ou (ValorY = ValorZ) ENTAO
               ESCREVA ("Este é um triangulo isosceles")
            FIMSE
         FIMSE
         SE (ValorX <> ValorY) e (ValorX <> ValorZ) e (ValorY <> ValorZ) ENTAO
            ESCREVA ("Este é um triangulo escaleno")
         FIMSE
      SENAO
           ESCREVA ("Os valores nao formam um triangulo")
      FIMSE
fimalgoritmo