MATERIA ALGORITMO

Algoritmo "IMC"

Var

   massa,altura,imc:Real

Inicio

escreva("ita nia kilograma (Kg):")

Leia  (massa)

escreva("ita nia altura (M):")

Leia  (altura)

imc <-massa/(altura^2)

Escreval ("-----------------")

Escreval ("IMC:",imc:5:2)

Escreval ("-----------------")

Se (imc >= 18.5)e (imc <25) entao

          Escreval ("Ita Boot Nia peso Ideal")

Senao

          Escreval ("Ita Boot Nia peso laos Ideal")

          fimse

Fimalgoritmo