Напишите пожалуйста программу с case

Паскаль)
begin
writeln(Введите номер месяца);
readln(mes);
writeln(Введите год);
readln(god);
case mes of
1:write(январь);
2:write(февраль);
3:.....
........
12:write(декабрь);
end;
write( ,god mod 100);
writeln;
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.