Программа (без контроля правильности ввода и без учета високосных лет):
var m,y:integer;
months:array[1..12] of string=
 ('январь', 'февраль', 'март', 'апрель', 'май', 'июнь', 'июль', 'август', 'сентябрь', 'октябрь', 'ноябрь', 'декабрь');
begin
write('Введите месяц и год: ');
readln(m,y);
case m of 
 1,3,5,7,8,10,12: write('31 день, ');
 2              : write('28 дней, ');
 4,6,9,11       : write('30 дней, ');
 end;
writeln(months[m]);
end.

Пример:
Введите месяц и год:5 2016
31 день, май

Var
a,z:integer;
begin
write('Введите год: ');
readln(z);
write('Введите номер месяца: ');
readln(a);
 case a of
    1: writeln(z,' ','год',' ','Январь.31 день');
     2: writeln(z,' ','год',' ','Февраль.29 дней');
    3: writeln(z,' ','год',' ','Март.31 день');
4: writeln(z,' ','год',' ','Апрель.30 дней');
5: writeln(z,' ','год',' ','Май.31 день');
6: writeln(z,' ','год',' ','Июнь.30 дней');
7: writeln(z,' ','год',' ','Июль.31 день');
8: writeln(z,' ','год',' ','Август.31 день');
9: writeln(z,' ','год',' ','Сентябрь.30 дней');
10: writeln(z,' ','год',' ','Октябрь.31 день');
11: writeln(z,' ','год',' ','Ноябрь.30 дней');
12: writeln(z,' ','год',' ','Декабрь.31 день');
end;
end.