3-13 - Escreva um algoritmo que leia a altura (em metros), o peso (em quilogramas) e o sexo ("Masculino" ou Feminino") e calcule seu peso ideal, dado por: peso ideal homem = (72,7 x altura) - 58 ou peso ideal da mulher = (62,1x altura) - 44. O algoritmo deve, também, informar se a pessoa está abaixo ou acima de seu peso ideal em quilos.

algoritmo "Peso Ideal"
var
altura: numerico
peso, pesoIdealHomem, pesoIdealMulher, pesoAcima, pesoAbaixo: real
sexo: literal
inicio
 escreval ("Calcule o peso ideal ")
 escreva ("Informe o peso em quilograma: ")
 leia (peso)
 escreva ("Informe a altura em metros: ")
 leia (altura)
 escreva ("Informe o sexo, masculino (m) ou feminino (f): ")
 leia (sexo)
   se (sexo = "m") entao
     pesoIdealHomem <- (72.7 * altura) - 58
       se (pesoIdealHomem < peso) entao
         pesoAcima <- peso - pesoIdealHomem
           escreva (" Você está com: ", pesoAcima:5:2, " kg acima de seu peso ideal")
       senao
         se (pesoIdealHomem > peso) entao
           pesoAbaixo <- pesoIdealHomem - peso
              escreva (" Você está com: ", pesoAbaixo:5:2, " kg abaixo de seu peso ideal")
         fimse
       fimse
   fimse
 se (sexo = "f") entao
     pesoIdealMulher <- (62.1 * altura) - 44.77
       se (pesoIdealMulher < peso) entao
         pesoAcima <- peso - pesoIdealMulher
           escreva (" Você está com: ", pesoAcima:5:2, " kg acima de seu peso ideal")
       senao
         se (pesoIdealMulher > peso) entao
           pesoAbaixo <- pesoIdealMulher - peso
              escreva (" Você está com: ", pesoAbaixo:5:2, " kg abaixo de seu peso ideal")
         fimse
       fimse
   fimse
  
fimalgoritmo