Вводим с клавиатуры число,определить какой это месяц и сколько в нем дней (надо сделать в паскале авс)

Var a: integer;
begin
writeln('введите число ');
readln(a);
if a=1 then writeln('январь. 31 день');
if a=2 then writeln('февраль. 28 дней (29 в високосном году)');
if a=3 then writeln('март. 31 день');
if a=4 then writeln('апрель. 30 дней');
if a=5 then writeln('май. 31 день');
if a=6 then writeln('июнь. 30 дней');
if a=7 then writeln('июль. 31 день');
if a=8 then writeln('август. 31 день');
if a=9 then writeln('сентябрь. 30 дней');
if a=10 then writeln('октябрь. 31 день');
if a=11 then writeln('ноябрь. 30 дней')
if a=12 then writeln('декабрь 31 день')
end.