(*______________________________________________

   Libro: EMPEZAR DE CERO A PROGRAMAR EN PASCAL
   Ejemplo (AM) 12.4.1: Dia de la semana

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

program EJE12041;

uses Crt;

var Dia : Integer;

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

   GotoXY( 4, 4 );
   case Dia of
      1 : Write( 'Lunes' );
      2 : Write( 'Martes' );
      3 : Write( 'Miercoles' );
      4 : Write( 'Jueves' );
      5 : Write( 'Viernes' );
      6 : Write( 'Sabado' );
      7 : Write( 'Domingo' )
      else
         Write( 'ERROR: Dia incorrecto.' )
   end
end.