Uses crt; var a: 0..12; b: string; begin writeln('номер месяца'); readln(a); case a of 1: begin b: ='январь'; end; 2: begin b: ='февраль'; end; 3: begin b: ='март'; end; 4: begin b: ='апрель'; end; 5: begin b: ='май'; end; 6: begin b: ='июнь'; end; 7: begin b: ='июль'; end; 8: begin b: ='август'; end; 9: begin b: ='сентябрь'; end; 10: begin b: ='октябрь'; end; 11: begin b: ='ноябрь'; end; 12: begin b: ='декабрь'; end; end; writeln(b); readln; end.
