[Resolvido] Algoritmo: Árvore de Natal

Bom... não consigo de forma alguma colocar esse algoritmo em forma de procedimento...

Gostaria muito da ajuda de vocês ;)

Aqui está o algoritmo

algoritmo "arvore"

var
i, n, k, j, l, w: inteiro

inicio
// Seção de Comandos
escreval ("Escolha o tamanho da árvore.")
leia (n)
limpatela

k <-1
w <- n
para i de 1 ate n faca
escreva(" ")
fimpara
escreva(" ")
escreval("*")
para i de 1 ate n faca
para l de 1 ate w faca

escreva(" ")
fimpara
w<- w-1
escreva("/")
para j de 1 ate k faca
escreva("*")
fimpara
k<-k+2
escreval("\")
fimpara
para i de 1 ate n faca
escreva (" ")
fimpara
escreval ("|_|")
escreva("VOCÊ ESCOLHEU A ÁRVORE DE TAMANHO ", n, ".")

fimalgoritmo
Bom.. se puderem me ajudar, agradeço bastante :)

Beijos!!!