Condicionais - Categoria de um nadador

algoritmo "Categoria do nadador"
var
   idade:inteiro
inicio
   escreval("Informe sua idade:")
   leia(idade)
   
   se (idade<5) entao
      escreva("Idade insuficiente")
   senao
      se (idade>=5) e (idade<=7) entao
         escreva("Infantil 'A'")
      senao
         se(idade>=8) e (idade<=10) entao
            escreva("Infantil 'B'")
         senao
            se(idade>=11) e (idade<=13) entao
               escreva("Juvenil 'A'")
            senao
               se(idade>=14) e (idade<=17) entao
                  escreva("Juvenil 'B'")
               senao
                  escreva("Adulto")
               fimse
            fimse
         fimse
      fimse
   fimse
fimalgoritmo