Ввести номер месяца и вывести название времени года. Пример: Введите номер месяца 4...

Question

Ввести номер месяца и вывести название времени года. Пример: Введите номер месяца 4 весна



Напишите программу на языке паскаль

Answer 1

Var  a: byte;

begin 
  writeln('Введите номер месяца:');
  readln(a);
  case a of
    1, 2, 12: writeln('Зима');
    3..5: writeln('Весна');
    6..8: writeln('Лето');
    9..11: writeln('Осень')
  else writeln('Ошибка');
  end;
end.