algoritmo "Calculadora_de_IMC"         //Nome do código desenvolvido
//Prô Terra - MakerZine
//IMC                 CLASSIFICAÇÃO
//MENOR QUE 18,5      MAGREZA
//ENTRE 18,5 E 24,9   NORMAL
//ENTRE 25,0 E 29,9   SOBREPESO
//ENTRE 30,0 E 39,9   OBESIDADE
//MAIOR QUE 40,0      OBESIDADE GRAVE
var                                    //Declaração das variáveis
    massa, altura, imc :real           //massa, altura e imc são do tipo real
inicio                                 //Início do código
escreval("****************************************************") //Visual
escreval("* Calculadora de IMC - Desenvolvida pelo Prô Terra *") //Visual
escreval("****************************************************") //Visual
escreva("Digite a sua massa (kg): ")   //Apresenta na tela uma pergunta
leia(massa)                            //Recebe e armazena o valor da massa
escreva("Digite a sua altura (m): ")   //Apresenta na tela uma pergunta
leia(altura)                           //Recebe e armazena o valor da altura
imc <- massa/(altura*altura)           //Executa o cálculo do IMC
se imc < 18.5 entao                    //Se imc for menor que 18,5, então
escreval("Seu IMC é:", imc,".")        //Apresenta na tela o valor do imc
escreval("Sua classificação segundo seu IMC, é MAGREZA") //Classificação
senao                                  //Se não for verdadeiro
se imc < 24.9 ENTAO                    //Se imc for menor que 24,9, então
escreval("Seu IMC é:", imc,".")        //Apresenta na tela o valor do imc
escreval("Sua classificação segundo seu IMC, é NORMAL") //Classificação
senao                                  //Se não for verdadeiro
se imc < 29.9 ENTAO                    //Se imc for menor que 29,9, então
escreval("Seu IMC é:", imc,".")        //Apresenta na tela o valor do imc
escreval("Sua classificação segundo seu IMC, é SOBREPESO") //Classificação
senao                                  //Se não for verdadeiro
se imc < 39.9 ENTAO                    //Se imc for menor que 39,9, então
escreval("Seu IMC é:", imc,".")        //Apresenta na tela o valor do imc
escreval("Sua classificação segundo seu IMC, é OBESIDADE") //Classificação
senao                                  //Se não for verdadeiro
se imc > 39.9 ENTAO                    //Se imc for maior que 39,9, então
escreval("Seu IMC é:", imc,".")        //Apresenta na tela o valor do imc
escreval("Sua classificação segundo seu IMC, é OBESIDADE GRAVE") //Classific.
fimse                                  //Finaliza a função SE
fimse                                  //Finaliza a função SE
fimse                                  //Finaliza a função SE
fimse                                  //Finaliza a função SE
fimse                                  //Finaliza a função SE
fimalgoritmo                           //Fim do algoritmo