Название сайта 1

Введите, пожалуйста, адрес электронной почты, указанный в параметрах вашей учётной записи. На этот адрес будет отправлено письмо, содержащее ваш Логин.

Новости

Случайная программа

// Наименование сезона
// Уровень сложности: -1
begin
  var Month := ReadInteger('Введите номер месяца:');
  var Season: string;
  
  case Month of
    1,2,12: Season := 'Зима';
    3..5: Season := 'Весна';
    6..8: Season := 'Лето';
    9..11: Season := 'Осень';
  end;
  
  Witeln(Season)
end.