Exercício 09 Estrutura de Seleção - Pascal

9) Escreva um algoritmo que, a partir de um mês fornecido (número inteiro de 1 a 12), apresente o nome dele por extenso ou uma mensagem de mês inválido.

Program Mes_Extenso ;
var
 mes: integer;
 Begin
  Write('Informe o Mes: ');
  readln(mes);
   if (mes = 1) then
    Writeln('Janeiro')
   else if (mes = 2) then
    Writeln('Fevereiro')
   else if (mes = 3) then
    Writeln('Marco') 
   else if (mes = 4) then
    Writeln('Abril') 
   else if (mes = 5) then
    Writeln('Maio') 
   else if (mes = 6) then
    Writeln('Junho') 
   else if (mes = 7) then
    Writeln('Julho') 
   else if (mes = 8) then
    Writeln('Agosto')
   else if (mes = 9) then
    Writeln('Setembro') 
   else if (mes = 10) then
    Writeln('Outubro') 
   else if (mes = 11) then
    Writeln('Novembro') 
   else if (mes = 12) then
    Writeln('Dezembro') ;   
Writeln('                        by Marcus Viniciu');     
 End.

Categories: Pascal , Programação