{$codepage UTF8} VAR letra : Char; BEGIN Write('Ingrese una letra :'); Readln(letra); Case letra of 'A'..'Z',#165 : Writeln('Ingresaste una mayuscula'); 'a'..'z',#164 : Writeln('Ingresaste una minuscula') End; END.