Составить программу, которая по номеру месяца, введенного с клавиатуры, выводит количество дней в нем. Составить программу, которая после введенного с клавиатуры числа (в диапазоне от 1 до 20), обозначающего денежную единицу, дописывает слово "Копейка" в правильной форме. Например, 5 копеек, 1 копейка и т. д.

program zz1;

var a, k:integer; / /заводим переменные

begin

write ('введите номер месяца ');

read (a);

case a of / /в зависимости от введенного числа выбираем выводимый ответ

1:writeln (31);

2:writeln (28);

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;

write ('введите число от 1 до 20 '); / /вводим число с клавиатуры

read (k);

case k of / /в зависимости от введенного числа выбираем выводимый ответ

1:writeln (k,' копейка');

5 ... 20:writeln (k,' копеек');

2,3,4:writeln (k,' копейки');

end;

end.