Программа в Паскаль.

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

Var

n, k:integer;

Begin

k:=-1;

Repeat

Write ('Введите номер месяца: ') ; Read (n) ;

k:=k+1;

Until (n>0) and (n<13) ;

Case n of

1,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.