Pascal: Comprobar varios casos

Cómo comprobar variables que puedan tener valores variados, usando CASE

Lenguaje: Pascal (compilador: FreePascal)

Categoría: Básico

(* Fuente procedente de ErrorDeSintaxis.es *)

(* Cómo comprobar variables que puedan tener *)

(*  valores variados, usando CASE *)

(* Lenguaje: Pascal *)

(* Compilador: FreePascal *)

(* Nivel: Básico *)

(* Disponible desde 28/06/2011 *)

(* Aportado por Nacho *)

(* Autor original: Nacho Cabanes *)

(* Web original: http://www.aprendeaprogramar.com/mod/resource/view.php?id=80 *)

 program case1;
 
 
 var
   letra: char;
 
 begin
   WriteLn('Escriba un símbolo');
   ReadLn(letra);
   case letra of
     ' ':                 WriteLn('Un espacio');
     'A'..'Z', 'a'..'z':  WriteLn('Una letra');
     '0'..'9':            WriteLn('Un dígito');
     '+', '-', '*', '/':  WriteLn('Un operador');
   else  { otherwise en SURPAS }
     WriteLn('No es espacio, ni letra, ni dígito, ni operador');
   end;
 end. 

 
Resultado:

Escriba un símbolo
a
Una letra