Ver cuantos días trae un mes

Proceso mes Escribir "¿año bisisesto(s/n)?"; Leer año; bi<-Verdadero; Si año=n Entonces bi<-Falso; FinSi Escribir "ingrese mes"; Leer mes; Si mes<=7 Entonces Si mes=2 Entonces Si año=n Entonces dmes<-28 Sino dmes<-29 FinSi Sino Si mes mod 2=0 Entonces dmes<-30 Sino dmes<-31 FinSi FinSi Sino Si mes mod 2 = 0 Entonces dmes<-31 Sino dmes<-30 FinSi FinSi Escribir "trae " dmes " dias"; Segun mes Hacer 1: escribir "enero"; 2: Escribir "febrero"; 3: Escribir "marzo"; 4: Escribir "abril"; 5: Escribir "mayo"; 6: escribir "junio"; 7: Escribir "julio"; 8: Escribir "agosto"; 9: Escribir "septiembre"; 10: Escribir "octubre"; 11: Escribir "noviembre"; 12: Escribir "diciembre" De Otro Modo: Escribir "ingrese un numero entre 1 a 12"; FinSegun FinProceso