Программа в Паскаль.
Ввести номер месяца и вывести количество дней в нём, а также число ошибок при вводе.

Var   n,k:integer;Begink:=-1;RepeatWrite('Введите номер месяца: ');Read(n);k:=k+1;Until (n>0)and(n<13);Case n of1,3,5,7,8,10,12:n:=31;4,6,9,11:n:=30;2:n:=28;else n:=0;End;WriteLn('Количество дней: ',n);WriteLn('Количество ошибок при вводе: ',k);End.