Algoritmo que exiba qual o mês correspondente

Crie um algoritmo que a partir do número digitado de 1 a 12, exiba qual o mês correspondente

Pseudocódigo:

programa exercicio1
var
   n : inteiro;
inicio
   leia n;
   escolha (n)
   		1: escreva "Janeiro";
   		2: escreva "Fevereiro";
   		3: escreva "Março";
   		4: escreva "Abril";
   		5: escreva "Maio";
   		6: escreva "Junho";
   		7: escreva "Julho";
   		8: escreva "Agosto";
   		9: escreva "Setembro";
   		10: escreva "Outubro";
   		11: escreva "Novembro";
   		12: escreva "Dezembro";
   	senao
   		escreva "Mês Inválido"
   fim_escolha;
fim.

Pascal:

// Autor: Rafael Oliveira
// Data: 14/04/2010
Program exercicio1;
 uses crt;
 var
 numero : integer;
 Begin
 writeln('Insira um Numero de 1 a 12');
 readln(numero);
 	case (numero) of
     	1: writeln('Mes', numero, ' = Janeiro');
     	2: writeln('Mes', numero, ' = Fevereiro');
     	3: writeln('Mes', numero, ' = Marco');
     	4: writeln('Mes', numero, ' = Abril');
     	5: writeln('Mes', numero, ' = Maio');
     	6: writeln('Mes', numero, ' = Junho');
     	7: writeln('Mes', numero, ' = Julho');
     	8: writeln('Mes', numero, ' = Agosto');
     	9: writeln('Mes', numero, ' = Setembro');
     	10: writeln('Mes', numero, ' = Outubro');
     	11: writeln('Mes', numero, ' = Novembro');
     	12: writeln('Mes', numero, ' = Dezembro');
	else
		writeln('Mes Invalido'); 
	end;	  
 writeln('Pressione para fechar');
 readkey;  
End.