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

Формулировка задачи:

Напишите программу, которая вводит с клавиатуры номер месяца и определяет сколько дней в этом месяце. При вводе неверного номера месяца должно быть выведено сообщение об ошибке.

Решение задачи: «Составить программу, которая вводит с клавиатуры номер месяца и определяет сколько дней в этом месяце»

Листинг программы

var m:integer;
begin
Write('Введите номер месяца m= ');
ReadLn(m);
if not(m in [1..12])then
write('Такого месяца нет')
else
  case m of
  2:write(28);
  4,6,9,11:write(30);
  else write(31);
  end;
end.

Объяснение кода листинга программы

Создается переменная m типа integer, которая будет использоваться для хранения введенного номера месяца.
Выводится сообщение Введите номер месяца m= для привлечения внимания пользователя и получения номера месяца.
С помощью функции ReadLn(m) происходит чтение введенного пользователем числа в переменную m.
С помощью оператора if проверяется, что введенный номер месяца находится в диапазоне от 1 до 12. Если это условие не выполняется, выводится сообщение Такого месяца нет.
Используется оператор case для определения количества дней в месяце в зависимости от введенного номера месяца.
Для месяца с номером 2, выводится количество дней - 28.
Для месяцев с номерами 4, 6, 9 и 11 выводится количество дней - 30.
Для всех остальных месяцев выводится количество дней - 31.
Конец программы.