(*______________________________________________________

   Libro: EMPEZAR DE CERO A PROGRAMAR EN PASCAL
   Ejemplo (AA) 12.8.1: Dia de la semana
                        (Alternativa multiple en doble)

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

program EJE12081;

uses Crt;

var Dia : Integer;

begin
   ClrScr;
   GotoXY( 4, 2 );
   Write( 'Introduzca dia de la semana: ' );
   Read( Dia );

   GotoXY( 4, 4 );
   if ( Dia >= 1 ) and ( Dia <= 7 ) then

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

      { Inicio del anidamiento }
      case Dia of
         1 : Write( 'Lunes' );
         2 : Write( 'Martes' );
         3 : Write( 'Miercoles' );
         4 : Write( 'Jueves' );
         5 : Write( 'Viernes' );
         6 : Write( 'Sabado' );
         7 : Write( 'Domingo' )
      end
      { Fin del anidamiento }

   else
      Write( 'ERROR: Dia incorrecto.' )
end.