ПРОГРАММИРОВАНИЕ PascalABC Вводится цифра месяца (от 1 до 12). В зависимости от цифры вывести название месяца. Например, 1 = январь, 5 = май.​

var

 a: integer;

begin

 writeln('Введите число от 1 до 12:');

 readln(a);

 case a of

   1: writeln('Январь');

   2: writeln('Февраль');

   3: writeln('Март');

   4: writeln('Апрель');

   5: writeln('Май');

   6: writeln('Июнь');

   7: writeln('Июль');

   8: writeln('Август');

   9: writeln('Сентябрь');

   10: writeln('Октябрь');

   11: writeln('Ноябрь');

   12: writeln('Декабрь');

 end;

end.

program gf; var x: integer; beginwrite('положительные двухзначные числа: '); for x: =-99 to 99 doif (x< -9) and (x> -100) thenwrite(x, ' '); writeln; write( ' отрицательные двухзначные числа:   '); for x: =-99 to 99 doif (x> 9) and (x< 100) thenwrite(x, ' '); end.

101110, 101111. в десятичной эти числа равны 46 и 47.