Составить программу, которая по номеру месяца, введенного с клавиатуры, выводит количество дней в нем. Составить программу,

program zz1;var a,k:integer; //заводим переменныеbeginwrite(\'введите номер месяца \');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.