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

begin

 var m := Arr('Зима', 'Зима', 'Весна', 'Весна', 'Весна', 'Лето',

     'Лето', 'Лето', 'Осень', 'Осень', 'Осень', 'Зима');

 var k := ReadInteger('Введите номер месяца:') - 1;

 if k.InRange(0, 11) then Println(m[k])

 else Println('Недопустимый номер месяца')

end.