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

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.