фрагмент кода:
Код:
case b of:
12,1,2: seson:='Зима';
3..5: seson:='Весна';
6..8: seson:='Лето';
9..11: seson:='Осень';
end;
case b of:
{с начала сезона прошло количество дней, равное сегодняшней дате}
12,3,6,9: n:=a;
{с начала сезона прошло количество дней, равное сумме предыдущих месяцев плюс сегодняшняя дата}
1,4: n:=31+a;
2: n:=31+31+a;
5,8,11: n:=31+30+a;
7,10: n:=30+a;
end;
writeln ('Сейчс на дворе ',seson, '; дней с начала сезона - ', n);