{$codepage UTF8} TYPE DiaSemana = (Lunes,Martes,Miercoles,Jueves,Viernes,Sabado, Domingo); DiasTrabajo = Lunes..Viernes; Mayusculas = 'A'..'Z'; Minusculas = 'a'..'z'; VAR m:Mayusculas; x:DiasTrabajo; BEGIN Write('Ingrese una mayuscula'); readln(m); Writeln(m); Readln() END.