algoritmo "triangulo"

var A, B, C : inteiro

inicio
    escreva("Digite o valor do ângulo A: ")
    leia(A)
    escreva("Digite o valor do ângulo B: ")
    leia(B)
    escreva("Digite o valor do ângulo C: ")
    leia(C)

    se ((A + B + C) = 180) entao
       escreval("É um triângulo! Pois a soma dos ângulos é igual a 180.")
       se ( (A = 90) ou (B = 90) ou (C = 90) ) entao
           escreva("Triângulo Retângulo!")
       senao
           se ( (A < 90) e (B < 90) e (C < 90) ) entao
              escreva("Triângulo Acutângulo!")
           senao
              escreva("Triângulo Obtusângulo!")
           fimse
       fimse
    senao
       escreva("Não é um Triângulo!")
    fimse
fimalgoritmo