IF mês >= 1 and mês <= 12 THEN
writeln(mês válido)
IF (mês = 1 or mes = 3 or mês = 5 or mês = 7 or
mês = 8 or mês = 10 or mês = 12) and (dia >= 1 and dia <= 31) THEN
WRITELN(dia válido)
ELSE
IF (mês = 4 or mês = 6, or mês = 9 or mês = 11) and
(dia >= 1 and dia <= 30) THEN
(dia válido)
ELSE
IF (ano mod 4=0) and (dia <= 1 and Dia <= 29) THEN
(mês = Fevereiro Bissexto e Dia Válido)
ELSE
IF (ano mod 4<>0) and (dia <= 1 and dia <= 28) THEN
(mês = Fevereiro não Bissexto e Dia Válido)
ELSE
WRITELN(dia inválido)
Mesmo se tiver certo alguém pode fazer um código pra mim que valide uma data e que respeite o ano ser bissexto, os dias dos meses e etc?