Indice de Massa Corporal - portugol

algoritmo "Indice de Massa Corporal"
// Função :
// Autor :
// Data : 02/11/2013
// Seção de Declarações
var
IMC,peso,altura:real

inicio
Escreval("Digite seu peso")
leia(peso)
Escreval("Digite sua altura")
leia(altura)
IMC <- peso / (altura^2)
//IMC <- peso/(altura*altura)  também pode ser feito dessa maneira
Escreval("Seu IMC - Indice de Massa Corporal é :",IMC)
fimalgoritmo