27.11.2012, 21:18
|
#4 (permalink)
|
|
VIP user
Регистрация: 10.03.2011
Сообщений: 765
Сказал(а) спасибо: 10
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 3453
|
вот тебе кусок программы
Цитата:
case MONTH of
1, 2, 12 : writeln (‘Зима‘);
3, 4, 5 : writeln (‘Весна‘);
6, 7, 8 : writeln (‘Лето‘);
9, 10, 11 : writeln (‘Осень‘);
end;
|
|
|
|