(*__________________________________________________

   Libro: EMPEZAR DE CERO A PROGRAMAR EN PASCAL
   Ejercicio Adicional (AA) 12.2.2: Numero del dado

   Web del Autor: http://www.carlospes.com
  __________________________________________________*)

program AAA12022;

uses Crt;

var
   Letras : string [6];
   Numero : Integer;

begin
   ClrScr;
   Write( 'Introduzca numero del dado: ' );
   ReadLn( Numero );

   if ( Numero >= 1 ) and ( Numero <= 6 ) then
      begin
      { Solo si el numero es valido, se ejecuta la
      instruccion alternativa multiple }

         { Inicio del anidamiento }
         case Numero of
            1 : Letras := 'seis';
            2 : Letras := 'cinco';
            3 : Letras := 'cuatro';
            4 : Letras := 'tres';
            5 : Letras := 'dos';
            6 : Letras := 'uno'
         end;
         { Fin del anidamiento }

         Write( 'En la cara opuesta esta el "', letras, '".' );
      end
   else
      Write( 'ERROR: Numero incorrecto.' );
end.