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