3.13) Escreva um algoritmo que leia a altura (em metros), o peso (em quilogramas) e o sexo("MASCULINO" ou "FEMININO") e caclcule seu peso ideal,dado por : peso ideal do homem = (72,7 x altura)- 58 ou peso ideal da mulher =(62,1 x altura)-44,77. O algoritmo deve,tambem,informar se a pessoa está abaixo ou acima de seu peso ideal em quantos quilos.

algoritmo "peso ideial"
var
 h,p,psI,x : real
 s,m,f :literal
inicio
  escreva(" Informe a altura ")
  leia (h)
  escreva(" Informe o peso ")
  leia (p)
  escreva(" Informe o sexo m,f")
  leia (s)
  se (s ="f")entao
  psI<- ((62.1 * h)-44.77)
  senao
  psI <- ((72.7 * h) - 58)
  fimse
  se (p >psI) entao
  x <- p - psI
  escreva("Seu peso está",x,"kilos acima do peso ideal ")
  senao
  x <- psI - p
  escreva ("Se peso está",x, "kilos abaixo do peso ideal")
  fimse

fimalgoritmo