Пользователь последовательно вводит два числа. Первое-день месяца, второе-число месяца. Написать программу, чтобы она вывела что-то вроде (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.