algoritmo "Exer13"
PROCEDIMENTO MedidasTriangulo(X, Y, Z: real)
 INICIO
 se (X<Y+Z) e (Y<X+Z) e (Z<X+Y) entao
   escreval(" Estes valores formam um triângulo")
   se (X=Y) e (Y=Z) entao
      escreval (" Triangulo Equilátero")
   senao
      se (X=Y) ou (Y=Z) ou (le=Z) entao
         escreval (" Triângulo Isósceles")
      senao
         escreval (" Triangulo Escaleno")
      fimse
   fimse
senao
   escreval ("Estes valores não formam um triângulo")
fimse
FIMPROCEDIMENTO
var
 le, ld, li: real     //lado esquerdo, lado direito, lado inferior
inicio
 escreval("Digite o valor do lado esquerdo")
 leia(le)
 escreval("Digite o valor do lado direito")
 leia(ld)
 escreval("Digite o valor do lado inferior")
 leia(li)
 MedidasTriangulo(le,ld,li)
fimalgoritmo