Программа на паскале:
var s: string;
begin
read(s);
write(copy(s, 1, 2));
case copy(s, 4, 2) of
'01': write(' января ');
'02': write(' февраля ');
'03': write(' марта ');
'04': write(' апреля ');
'05': write(' мая ');
'06': write(' июня ');
'07': write(' июля ');
'08': write(' августа ');
'09': write(' сентября ');
'10': write(' октября ');
'11': write(' ноября ');
'12': write(' декабря ');
end;
writeln(copy(s, 7, 4), ' года');
end.