Ответ: Спасибо за ответ

Ответ: vara:integer;beginwrite(‘Введите номер месяца: ‘);readln(a); case a of    1: writeln(‘Январь.31 день’);    2: writeln(‘Февраль.29 дней’);    3: writeln(‘Март.31 день’);    4: writeln(‘Апрель.30 дней’);    5: writeln(‘Май.31 день’);    6: writeln(‘Июнь.30 дней’);    7: writeln(‘Июль.31 день’);    8: writeln(‘Август.31 день’);    9: writeln(‘Сентябрь.30 дней’);    10: writeln(‘Октябрь.31 день’);    11: writeln(‘Ноябрь.30 дней’);    12: writeln(‘Декабрь.31 день’);end;end.2.vara:integer;beginwriteln(‘Введите число: ‘);readln(a);case a of1: write(a, ‘ Копейка’);2..4: write(a, ‘ Копейки’);5..20: write(a, ‘ Копеек’);end;end.