program Ejercicio5D;

var
  dia,mes,anio: integer;

begin
    write('Ingrese una fecha con el siguiente formato: d',#161,'a, mes, a',#164,'o: ');
    read(dia, mes, anio);
    case mes of
    1:
      begin
        if (dia>=1) and (dia<=31) then
           begin
             write('La fecha es correcta.');
             readln();
             readln();
           end
        else
           begin
             write('La fecha no es correcta.');
             readln();
             readln();
           end;
      end;
    2:
      begin
        if (anio mod 4 = 0) and (anio mod 100<>0) or (anio mod 400 = 0) then
           if (dia>=1) and (dia<=29) then
              begin
                write('La fecha es correcta.');
                readln();
                readln();
              end
           else
              begin
                write('La fecha no es correcta.');
                readln();
                readln();
              end
        else
           if (dia>=1) and (dia<=28) then
              begin
                write('La fecha es correcta.');
                readln();
                readln();
              end
           else
              begin
                write('La fecha no es correcta.');
                readln();
                readln();
              end;
      end;
    3:
      begin
        if (dia>=1) and (dia<=31) then
           begin
             write('La fecha es correcta.');
             readln();
             readln();
           end
        else
           begin
             write('La fecha no es correcta.');
             readln();
             readln();
           end;
      end;
    4:
      begin
        if (dia>=1) and (dia<=30) then
           begin
             write('La fecha es correcta.');
             readln();
             readln();
           end
        else
           begin
             write('La fecha no es correcta.');
             readln();
             readln();
           end;
      end;
    5:
      begin
        if (dia>=1) and (dia<=31) then
           begin
             write('La fecha es correcta.');
             readln();
             readln();
           end
        else
           begin
             write('La fecha no es correcta.');
             readln();
             readln();
           end;
      end;
    6:
      begin
        if (dia>=1) and (dia<=30) then
           begin
             write('La fecha es correcta.');
             readln();
             readln();
           end
        else
           begin
             write('La fecha no es correcta.');
             readln();
             readln();
           end;
      end;
    7:
      begin
        if (dia>=1) and (dia<=31) then
           begin
             write('La fecha es correcta.');
             readln();
             readln();
           end
        else
           begin
             write('La fecha no es correcta.');
             readln();
             readln();
           end;
      end;
    8:
      begin
        if (dia>=1) and (dia<=31) then
           begin
             write('La fecha es correcta.');
             readln();
             readln();
           end
        else
           begin
             write('La fecha no es correcta.');
             readln();
             readln();
           end;
      end;
    9:
      begin
        if (dia>=1) and (dia<=30) then
           begin
             write('La fecha es correcta.');
             readln();
             readln();
           end
        else
           begin
             write('La fecha no es correcta.');
             readln();
             readln();
           end;
      end;
    10:
      begin
        if (dia>=1) and (dia<=31) then
           begin
             write('La fecha es correcta.');
             readln();
             readln();
           end
        else
           begin
             write('La fecha no es correcta.');
             readln();
             readln();
           end;
      end;
    11:
      begin
        if (dia>=1) and (dia<=30) then
           begin
             write('La fecha es correcta.');
             readln();
             readln();
           end
        else
           begin
             write('La fecha no es correcta.');
             readln();
             readln();
           end;
      end;
    12:
      begin
        if (dia>=1) and (dia<=31) then
           begin
             write('La fecha es correcta.');
             readln();
             readln();
           end
        else
           begin
             write('La fecha no es correcta.');
             readln();
             readln();
           end;
      end;
    end;
    write('La fecha no es correcta.');
    readln();
    readln();
end.