Составить программу ввода номера квартала года и печати названий месяцев, входящих в данный квартал. Рассчитать и вывести количество дней в данном квартале (считать, что в феврале 28 дней). В случае ввода номера, отличного от 1..4, напечатать сообщение «введенное число не является номером квартала» — Pascal(Паскаль)

ar w:byte;
begin
clrscr;
repeat
write('Выберните номер квартала в году 1-4');
readln(w);
if not (w in [1..4]) then
writeln('Введенное число не является номером квартала.');
until w in [1..4];
case w of
1:writeln('январь  февраль  март  всего дней=',31+28+31);
2:writeln('апрель  май июнь  всего дней=',30+31+30);
3:writeln('июль  август  сентябрь  всего дней=',31+31+30);
4:writeln('октябрь  ноябрь  декабрь  всего дней=',31+30+31);
end;
readln
end.