По заданному числу (от 1 до 12) вывести название соответствующего ему месяца

uses crt;
var a:integer;
begin
writeln('Введите число(от 1 до 12):');
read(a);
if a=1 then writeln('Январь');
if a=2 then writeln('Февраль');
if a=3 then writeln('Март');
if a=4 then writeln('Апрель');
if a=5 then writeln('Май');
if a=6 then writeln('Июнь');
if a=7 then writeln('Июль');
if a=8 then writeln('Август');
if a=9 then writeln('Сентябрь');
if a=10 then writeln('Октябрь');
if a=11 then writeln('Ноябрь');
if a=12 then writeln('Декабрь');
end.

case a of
1:writeln('Январь');
2:writeln('Февраль');
3:writeln('Март');
4:writeln('Апрель');
5:writeln('Май');
6:writeln('Июнь');
7:writeln('Июль');
8:writeln('Август');
9:writeln('Сентябрь');
10:writeln('Октябрь');
11:writeln('Ноябрь');
12:writeln('Декабрь');
end;

[FONT=Arial][SIZE=3]uses crt; 
const mas: array[1..12] of string=('январь', 'февраль', 'март', 'апрель', 'май', 'июнь',
                                                      'июль', 'август', 'сентябрь', 'октябрь', 'ноябрь', 'декабрь'); 
var n: byte; 
begin  
 clrscr;  
 write ('введите номер месяца: ');  
 if n<=12 then   
  begin 
      readln (n);
   write (n,'-й месяц - это ', mas[n]);
  end  
 else writeln ('а месяцев то только двенадцать');
end.  
[/SIZE][/FONT]