Aula10 - VisualG - Calculo IMC

algoritmo "aula10"

var imc,peso,altura:REAL

inicio
      escreva ("Digite seu peso......:")
      leia(peso)

      escreva ("Digite sua altura....:")
      leia(altura)

      imc:=peso/(altura*altura)
      escreva ("Seu IMC é...:",imc)
fimalgoritmo