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

          var   ch: char;
               begin
                  readln(ch);                
                    case ch of                    
                        'n','N': writeln('нет');                    
                        'y','Y': writeln('да')      
                     else writeln('нет значений диапазона')
                   end;
end.