Ввести номер месяца и вывести количество дней в нем, а также число ошибок при вводе введите номер месяца: - 2 введите номер месяца: 2 введите номер месяца: 11 в этом месяце 28 дней в этом месяце 30 дней Вы вводили неверно 1 раз Вы вводили неверно 1 раз

Не совсем понятно, что значит число ошибок при вводе?

Могу предложить такой вариант решения:

program Dni;

var

m:integer;

Begin

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

readln (m);

case m of

1,3,5,7,8,10,12:writeln ('31 день');

2:writeln ('В високосном году в феврале 29 дне, в обычном году - 28 дней');

4,6,9,11:writeln ('30 дней');

else writeln ('В году 12 месяцев. Вы ввели ошибочный номер');

END.