3.11) Escreva um algorítmo que leia um dia,mes e ano e escreva para essa data lida,o numero de dias transcorridos na ano.

algoritmo "dia corridos"
var
  dia,mes,ano, dc :inteiro
inicio
  escreval("Calcular dia")
  escreva("Entre com o dia")
  leia (dia)
  escreva("Entre com o mes")
  leia(mes)
  escreva("Entre com o ano ")
  leia(ano)
  se ((ano mod 4)=0) entao
    dc <- 366
  senao
    dc <- 365
    se (mes =12)entao
        dc <- dc -31
        dc <- dc+ dia
    senao
       dc <- dc -31
       se ( mes =11) entao
           dc <- dc -30
           dc <- dc + dia
       senao
          dc <- dc -30
          se ( mes =10) entao
           dc <- dc -31
           dc <- dc + dia
           senao
             dc <- dc -31
             se ( mes =09) entao
                 dc <- dc -30
                 dc <- dc + dia
           senao
              dc <- dc - 30
              se ( mes =08) entao
                  dc <- dc -31
                  dc <- dc + dia
              senao
                dc <- dc - 31
                se (mes = 07) entao
                    dc <- dc - 31
                    dc <- dc + dia
                senao
                   dc <- dc - 31
                   se ( mes = 06) entao
                       dc <- dc - 30
                       dc <- dc + dia
                   senao
                     dc <- dc - 30
                     se ( mes = 05) entao
                         dc <- dc - 31
                         dc <- dc + dia
                     senao
                        dc <- dc - 31
                        se ( mes = 04) entao
                            dc <- dc - 30
                            dc <- dc + dia
                        senao
                          dc <- dc - 30
                          se ( mes = 03)entao
                              dc <- dc - 31
                              dc <- dc + dia
                          senao
                             dc <- dc - 31
                             se (mes = 02) entao
                                 se (( ano mod 4)=0) entao
                                     dc <- dc - 29
                                     dc <- dc + dia
                                 senao
                                    dc <- dc - 28
                                    dc <- dc + dia
                                 fimse
                             senao
                               dc <- dia
                             fimse
                          fimse
                        fimse
                     fimse
                   fimse
                fimse
              fimse
             fimse
          fimse
       fimse
    fimse
    escreva(" O total de dias corridos eh",dc)
                         
    fimse
         
fimalgoritmo