Cap 3 - Exercicio 13

algoritmo "cap03 Exer3_13"
var
   altura,peso,acimapeso, pesoabaixo,pesoideal:real
   sexo:literal
inicio
escreva("Sua altura: ")
leia(altura)
escreva("Seu peso:")
leia(peso)
escreva("Seu sexo:")
leia(sexo)

se ((sexo = "Masculino") ou (sexo = "M")) entao
   pesoideal <- ((72.7*altura)-58)
senao
   pesoideal <- ((62.1*altura)-44.77)
fimse
     se (peso > pesoideal) entao
     acimapeso <- (peso-pesoideal)
     escreva("'Você está acima do Peso em: '", acimapeso: 5:2,"kg")
     escreval
       senao
         se (peso<pesoideal) entao
           pesoabaixo <- (pesoideal - peso)
           escreva ("'Você está abaixo do peso em: '", pesoabaixo: 5:2,"Kg")
           escreval
         fimse
fimse
escreva("Seu peso ideal é: ",pesoideal)
fimalgoritmo