Определить количество дней в этом месяце для невисокосного года — Pascal(Паскаль)

Program Case4;

Var
  x: Integer;

Begin
  ReadLn(x);
  Case x Of
    1:
      WriteLn('январь, 31 день');
    2:
      WriteLn('февраль, 28 дней');
    3:
      WriteLn('март, 31 день');
    4:
      WriteLn('апрель, 30 дней');
    5:
      WriteLn('май, 31 день');
    6:
      WriteLn('июнь, 30 дней');
    7:
      WriteLn('июль, 31 день');
    8:
      WriteLn('август, 31 день');
    9:
      WriteLn('сентябрь, 30 дней');
    10:
      WriteLn('октябрь, 31 день');
    11:
      WriteLn('ноябрь, 30 дней');
    12:
      WriteLn('декабрь, 31 день');
  End;

End.