Ввести номер месяца и вывести количество дней в нем, а также число ошибок при вводе. С использованием case. Массивы не проходили.

program zz1;

var s, k:integer; / / задаем переменную строкового типа

begin

write (' введите год ');

read (s); / / вводим с клавиатуры год

if (s mod 4 0) or (s mod 100 = 0) and (s mod 400 0)

then

begin

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

read (k);

if k = 1 then write ('31 дней');

if k = 2 then write ('29 дней');

if k = 3 then write ('31 дней');

if k = 4 then write ('30 дней');

if k = 5 then write ('31 дней');

if k = 6 then write ('30 дней');

if k = 7 then write ('31 дней');

if k = 8 then write ('31 дней');

if k = 9 then write ('30 дней');

if k = 10 then write ('31 дней');

if k = 11 then write ('30 дней');

if k = 12 then write ('31 дней');

end

else

begin

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

read (k);

if k = 1 then write ('31 дней');

if k = 2 then write ('28 дней');

if k = 3 then write ('31 дней');

if k = 4 then write ('30 дней');

if k = 5 then write ('31 дней');

if k = 6 then write ('30 дней');

if k = 7 then write ('31 дней');

if k = 8 then write ('31 дней');

if k = 9 then write ('30 дней');

if k = 10 then write ('31 дней');

if k = 11 then write ('30 дней');

if k = 12 then write ('31 дней');

end;

end.