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.