Написать программу, которая бы по введенному номеру времени года (1 — зима, 2 — весна, 3 — лето, 4 — осень) выдавала соответствующие этому времени года месяцы, количество дней в каждом из месяцев — Pascal(Паскаль)

program qq;
Uses crt;
var x:byte;
begin
clrscr;
writeln('Введите время года: 1-зима, 2-весна, 3-лето, 4-осень');
readln(x);
case x of
1:begin
   writeln('Декабрь 31 день');
   writeln('Январь 31 день');
   writeln('Февраль 28 или 29 дней');
  end;
2:begin
   writeln('Март 31 день');
   writeln('Апрель 30 дней');
   writeln('Май 31 день');
  end;
3:begin
   writeln('Июнь 30 дней');
   writeln('Июль 31 день');
   writeln('Август 31 день');
  end;
4:begin
   writeln('Сентябрь 30 дней');
   writeln('Октябрь 31 день');
   writeln('Ноябрь 30 дней');
  end;
 end;
readkey;
end.