| Создадим программу, которая будет запрашивать ввод числа от 1 до 12 и выводить название времени года, которому принадлежит месяц с указанным номером. Интерфейс прост: поле ввода (Edit1) и кнопка (Button1)
Пишеи команду для кнопки(Button1) procedure TForm1.Button1Click(Sender: TObject);
var Month: Integer;
begin
Month:=StrToInt(Edit1.Text);
case Month of
1,2,12: ShowMessage('Зима');
3..5: ShowMessage('Весна');
6..8: ShowMessage('Лето');
9..11: ShowMessage('Осень')
else ShowMessage('Число должно быть от 1 до 12.')
end
end; Получается:
Чтобы скачать нажмите "Перейти" "Пропустить рекламу" | 
