algoritmo "IMC"
var alt,peso,imc :real
ano, idade: inteiro
inicio
escreva("Digite o Ano de nascimento da pessoa")
leia(ano)
escreva("Digite a valor da altura da pessoa: ")
leia(alt)
escreva("Digite o valor do peso da pessoa: ")
leia(peso)
escreval("")
idade := 2021-ano
imc := peso*(alt*alt)
escreval("A pessoa tem",idade," anos de vida")
escreval("O imc dessa pessoa é:",imc)
fimalgoritmo
Espero ter ajudado