(*__________________________________________________

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

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

program AAA12021;

uses Crt;

var Numero : Integer;

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

   if ( Numero >= 1 ) and ( Numero <= 6 ) then

   { Solo si el numero es valido, se ejecuta la
   instruccion alternativa multiple }

      { Inicio del anidamiento }
      case Numero of
         1 : Write( 'En la cara opuesta esta el "seis".' );
         2 : Write( 'En la cara opuesta esta el "cinco".' );
         3 : Write( 'En la cara opuesta esta el "cuatro".' );
         4 : Write( 'En la cara opuesta esta el "tres".' );
         5 : Write( 'En la cara opuesta esta el "dos".' );
         6 : Write( 'En la cara opuesta esta el "uno".' )
      end
      { Fin del anidamiento }

   else
      Write( 'ERROR: Numero incorrecto.' );
end.