M03A15

O programa não está rodando e eu fiz como o professor escreveu na aula.

programa
{
	inclua biblioteca Texto -->txt
	inclua biblioteca Tipos-->ti
	funcao inicio()
	{
		inteiro idade
		cadeia teclado

		enquanto(verdadeiro){
		escreva("Digite a idade: ")
		leia(teclado)
		se(ti.cadeia_e_inteiro(teclado,10)){
		     idade=ti.cadeia_para_inteiro(teclado,10)
		     if(idade>=0 e idade<=130) {
		   pare
		     } senao {
		     	escreva("Erro,A idade deve estar entre 0 e 130 anos")
		     }
		} senao {
               escreva("Erro, a idade deve ser um número: ")

		}
			
		}
	}
}