Día siguiente de una fecha

Programa en Pseudocódigo para mostrar el día siguiente de una fecha introducida.

Proceso dia_siguiente
    Escribir "Introdusca un dia, mes y año validos";
    Leer d,m,a
    Segun m Hacer
        1,3,5,7,8,10:
            Si d<31 Entonces
                d<-d+1
            Sino
                d<-1
                m<-m+1
            FinSi
        2:
            Si (a%4=0 & a%100<>0 | a%400=0) Entonces
                Si d<29 Entonces
                    d<-d+1
                Sino
                    d<-1
                    m<-m+1
                FinSi
            Sino
                Si d<28 Entonces
                    d<-d+1
                Sino
                    d<-1
                    m<-m+1
                FinSi
            FinSi
        4,6,9,11:
            Si d<30 Entonces
                d<-d+1
            Sino
                d<-1
                m<-m+1
            FinSi
        12:
            Si d<31 Entonces
                d<-d+1
            Sino
                d<-1
                m<-1
                a<-a+1
            FinSi
        De Otro Modo:
          
    FinSegun
    Escribir d,"/",m,"/",a
  
FinProceso