---

program Seasons;
var
  month: integer;
begin
  write('Введите номер месяца: ');
  readln(month);
  
  case month of
    12, 1, 2: writeln('зима');
    3, 4, 5: writeln('весна');
    6, 7, 8: writeln('лето');
    9, 10, 11: writeln('осень');
  else
    writeln('Ошибка: введите число от 1 до 12');
  end;
end.





program AgeWords;
var
  age: integer;
begin
  write('Введите возраст: ');
  readln(age);
  
  write('Вам ', age, ' ');
  
  // Логика выбора правильного окончания
  if (age mod 100 >= 11) and (age mod 100 <= 14) then
    writeln('лет')
  else
    case age mod 10 of
      1: writeln('год');
      2, 3, 4: writeln('года');
      else writeln('лет');
    end;
end.