Dia da semana / AULA 17/09/2014

//ALUNO: Luiz Henrique Forino
//PROGRAMAÇÃO I, PROFESSOR PX
//AULA DIA 17/09/2014

Program DIA_DA_SEMANA;

var dia, diax: integer;


 Begin
        writeln ('Digite um número correspondente ao dia da semana: ');
        readln (dia);

     case dia of
        1 : writeln ('Domingo');
        2 : writeln ('Segunda-feira');
        3 : writeln ('Terça-feira');
        4 : writeln ('Quarta-feira');
        5 : writeln ('Quinta-feira');
        6 : writeln ('Sexta-feira');
        7 : writeln ('Sábado');
     else
        writeln ('Erro, dia inválido.');
     end
 End.