Verificar Validade Data, com Ano bissexto

Algoritmo "semnome"
// Disciplina   : [Linguagem e Lógica de Programação]
// Professor    : Jackson Meires
// Descrição   : Aqui você descreve o que o programa faz! (função)
// Autor(a)    : Jackson Meires
// Data atual  : 24/05/2016
var

   dia, mes, ano: inteiro

inicio

   escreval("digite o dia: ")
   leia(dia)

   escreval("Digite o mês: ")
   leia(mes)

   escreval("Digite o ano: ")
   leia(ano)

   se(dia > 0) e (dia <= 31) entao

      se (mes > 0) e (mes <= 12) entao

         se( (mes = 2) e (dia >29) ) entao
            escreval("Não existe dia 30 ou 31 em fevereiro")
         senao

            se(ano >= 0) e (ano <= 2015) entao

               se (ano mod 4 = 0) e (ano mod 100 <> 0) ou (ano mod 400 = 0) entao
                  escreval("É bissexto")
               senao
                  escreval("Não é bissexto")
               fimse

               escreval("Data válida!")
            senao

               escreval("Ano inválido")
            fimse
         fimse
      senao
         escreval("Mês inválido!")
      fimse
   senao
      escreval("Dia Inválido!")
   fimse



fimalgoritmo