c:/gdsf/web/fuentes_pascal/SEMANA.PAS

PROGRAM EJER36;
USES CRT;
VAR num_dia_sem : INTEGER;
BEGIN
CLRSCR;
WRITE ('Dia de la semana (numero) -> ');
READLN (num_dia_sem);
CASE num_dia_sem OF
       1 : WRITELN ('Lunes');
       2 : WRITELN ('Martes');
       3 : WRITELN ('Miercoles');
       4 : WRITELN ('Jueves');
       5 : WRITELN ('Viernes');
       6 : WRITELN ('Sabado');
       7 : WRITELN ('Domingo');
ELSE
       WRITELN ('No es un dia de la semana');
END;
END.