Ввести номер месяца. Вывести количество дней в этом месяце или сообщение об ошибке.

Program prog;

Uses crt;

var m: integer;

label l1;

Begin clrscr;

l1: write ('Введите номер месяца = ') ;

readln (m) ;

case m of 1,3,5,7,8,10,12: writeln ('31') ;

4,6,9,11: writeln ('30') ;

2: writeln ('28/29') ;

else

begin

writeln ('Непривильный номер месяца') ;

writeln;

goto l1;

end;

end;

readln;

End.