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

Question

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

Answer 1

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.