No algoritmo abaixo quantas linhas com asteriscos serão mostradas na tela?

algoritmo "Procedimento"
var
texto:caracter

procedimento linha
var

inicio

escreval("******************************************************")
escreval("")
fimprocedimento

inicio
// Seção de Comandos

escreval("***** Titulo *****")
escreval("")

linha
leia(x)
linha
escreval(x)
linha
linha

fimalgoritmo