lilou

Boa tarde, preciso incluir nesta calculadora uma opção 5 que seria calcular o imc do usuário.
Mas não aprendi procedimentos, como fica.
90% ta feito.

algoritmo "semnome"
// Função :
// Autor :
// Data : 1/8/2011
// Seção de Declarações
var
n1:inteiro
n2:inteiro
o:inteiro
r:real
inicio
escreval (" Escreva um número. ")
leia(n1)
escreval (" Escreva outro número. ")
leia(n2)
escreval ("-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-")
escreval (" Entre com o número da opção abaixo ")
escreval (" 1- soma ")
escreval (" 2- subitração")
escreval (" 3- multiplicação ")
escreval (" 4- divisão ")
escreval ("-.-.-.-.-.-")
leia(o)
escolha o
caso 1
r<-n1+n2
caso 2
r<-n1-n2
caso 3
r<-n1*n2
caso 4
r<-n1/n2
outrocaso
escreval (" Opção inválida! ")
r<-o
fimescolha
escreval ("-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-")
escreval (" O resultado é ",r)
// Seção de Comandos
fimalgoritmo

criei esta calculadora, mas tenho de incluir uma nova etapa de calcular o imc
procedimento ? como fazer ?

algoritmo "semnome"
var
vet: vetor[1..20] de inteiro
count,num_pares,soma_pares: inteiro
inicio
para count de 1 ate 20 faca
escreva("Posição",count," do vetor: ")
leia(vet[count])
fimpara
para count de 1 ate 20 faca
se vet[count] mod 2 = 0 entao
num_pares<- num_pares + 1
se num_pares <= 3 entao
soma_pares <- soma_pares + vet[count]
fimse
fimse
fimpara
escreval
escreval("A quantide de numeros pares é", num_pares)
escreval("A soma dos três primeiros números pares é", soma_pares)
fimalgoritmo