Ответ: Спасибо за ответ
Ответ: 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.