Напишите пожалуйста программу с 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.

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