algoritmo "CalculoIMC"
var
M, A, IMC: Real
iniciO
Escreva ("Massa (Kg): ")
Leia(M)
Escreva("Altura (m): ")
Leia (A)
IMC <- M / (A ^ 2) //massa dividido pela altura ao quadrado;;//
Escreval("IMC: ", IMC :5:2) //5Casas e 2 decimais //
Se (IMC >= 18.5) E (IMC < 25) então
Escreva ("Parabens! Voce esta no seu peso ideal")
senao
Escreva("Voce não esta na faixa de peso ideal")
FimSe
fimalgoritmo