Пользователь последовательно вводит два числа. Первое-день месяца, второе-число месяца. Написать программу, чтобы она вывела что-то вроде (1 января)

Var a: byte; b:integer;

Begin

writeln ('Введите день месяца');

readln (b);

writeln ('Введите номер месяца');

Readln (a);

Case a of

1: writeln (b,' янавря');

2: writeln (b,' февраля');

3: writeln (b,' марта ');

4: writeln (b,' апреля ');

5: writeln (b,' мая');

6: writeln (b,' июня ');

7: writeln (b,' июля');

8: writeln (b,' августа');

9: writeln (b,' сентября');

10: writeln (b,' октября');

11: writeln (b,' ноября');

12: writeln (b,' декабря');

else writeln ('Месяца №', a,'нет');

end;

end.