Validar una fecha sin año bisiesto

Definir res Como Caracter;
Definir arregloMeses,mesT Como texto;
Dimension arregloMeses[12];
mesT<-"";
arregloMeses[0]<-"Enero";
arregloMeses[1]<-"Febrero";
arregloMeses[2]<-"Marzo";
arregloMeses[3]<-"Abril";
arregloMeses[4]<-"Mayo";
arregloMeses[5]<-"Junio";
arregloMeses[6]<-"Julio";
arregloMeses[7]<-"Agosto";
arregloMeses[8]<-"Septiembre";
arregloMeses[9]<-"Octubre";
arregloMeses[10]<-"Noviembre";
arregloMeses[11]<-"Diciemre";

Repetir
Limpiar Pantalla;
ESCRIBIR "AÑO:";
LEER año;
ESCRIBIR "MES:";
LEER mes;
ESCRIBIR "DIA:";
LEER dia;

Si (año>=1) Entonces
Segun mes Hacer
1,3,5,7,8,10,12:
mesT<-arregloMeses[mes-1];
si(dia>=1 y dia<=31)
ESCRIBIR "LA FECHA: ",dia," de ",mesT, " del ",año," SI es valida";
Sino
ESCRIBIR "LA FECHA: ",dia," de ",mesT, " del ",año," NO es valida";
FinSi
2:
SI(vrd==verdadero)
mesT<-arregloMeses[mes-1];
si(dia>=1 y dia<=29)
ESCRIBIR "LA FECHA: ",dia," de ",mesT, " del ",año," SI es valida";
Sino
ESCRIBIR "LA FECHA: ",dia," de ",mesT, " del ",año," NO es valida";
FinSi

Sino
si(dia>=1 y dia<=28)
ESCRIBIR "LA FECHA: ",dia," de ",mesT, " del ",año," SI es valida";
Sino
ESCRIBIR "LA FECHA: ",dia," de ",mesT, " del ",año," NO es valida";
FinSi
FinSi
4,6,9,11:
mesT<-arregloMeses[mes-1];
si(dia>=1 y dia<=30)
ESCRIBIR "LA FECHA: ",dia," de ",mesT, " del ",año," SI es valida";
Sino
ESCRIBIR "LA FECHA: ",dia," de ",mesT, " del ",año," NO es valida";
FinSi
De Otro Modo:
mesT="mes incorrecto*_*";
ESCRIBIR "LA FECHA: ",dia," de ",mesT, " del ",año," NO es valida";
Fin Segun
ESCRIBIR "DESEAS SEGUIR ? n=No: ";
LEER res;
Fin Si
Hasta Que (res=='N' o res=='n')
FinProceso