Pascal/Turbo Pascal - Pseudocodigo

|Si DIAS<1 Entonces\\\"No Valida\\\"
|Fin Si
|Si MES>12 ó MES<1 Entonces \\\"No valida\\\"
|Fin Si
|Si MES=9,4,6,11 Entonces
| Si DIAS>30 Entonces \\\"No valida\\\"
| Sino \\\"Es Valida\\\"
| Fin Si
|Sino
| Si MES=2 Entonces
| Si ANIO mod 100=0 Entonces
| Si ANIO mod 400=0 Entonces
| Si DIAS>29 Entonces \\\"No valida\\\"
| Sino \\\"Es valida\\\"
| Fin Si
| Sino
| Si DIAS>28 Entonces \\\"No valida\\\"
| Sino \\\"Es valida\\\"
| Fin Si
| Fin Si
| Sino
| Si ANIO mod 4=0 Entonces
| Si DIAS>29 Entonces \\\"No valida\\\"
| Sino \\\"Es valida\\\"
| FinSi
| Sino
| Si DIAS>28 Entonces \\\"No valida\\\"
| Sino \\\"Es valida\\\"
| FinSi
| Fin Si
| Sino
| Si DIAS>31 Entonces \\\"No valida\\\"
| Sino \\\"Es Valida\\\"
| Fin Si
| Fin Si
|Fin Si


Diego comentó algo acerca del año bisiesto y es cierto es la parte mas laboriosa de la validacion.
La función \\\"mod\\\" te permite saber el residuo de una division, p.ej.

7 mod 2=1
15 mod 3=0
20 mod 7=6

suerte y cualquier duda aqui estamos

MUCHAS GRACIAS POR LA RESPUESTA!!!