Составить программку, которая по введенному номеру месяца выдает, сколько дней в

Var
nbsp;nbsp;nbsp;nbsp;a: Integer;
nbsp;
Begin
nbsp;nbsp;nbsp;nbsp;WriteLn (Введите номер месяца);
nbsp;nbsp;nbsp;nbsp;ReadLn (a);
nbsp;nbsp;nbsp;nbsp;Case a Of
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;1, 3, 5, 7, 8, 10, 12: WriteLn (31 денек);
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;2: WriteLn (28 дней);
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;4, 6, 9, 11: WriteLn (30 дней);
nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;nbsp;End;
nbsp;nbsp;nbsp;nbsp;ReadLn
End.