pedrocaires

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?