Напишите программу, которая получает с клавиатуры номер месяца и выводит название соответствующего ему время года или сообщение об ошибке. пример: введите номер месяца: 5 . в программе ! не использовать case

Program n_5; var   a: integer; procedure error; begin   write('error');   exit; end; begin   write('введите номер месяца - ');   readln(a);   if (a < = 0) or (a > 12) then     error   else   if (a = 12) or (a = 1) or (a = 2)  then     write('зима')   else   if (a = 3) or (a = 4) or (a = 5) then     write('весна')   else   if (a = 6) or (a = 7) or (a = 8) then     write('лето')   else   if (a = 9) or (a = 10) or (a = 11) then     write('осень'); end.