А самому подумать?
Первая задача.
Как определить, являетс ли число делителем другого? Разделить и посмотреть - делится нацело или нет.
Код:
function IsDiv(ANumber, ADiv : Integer) : Boolean;
begin
Result := (ANumber mod ADiv) = 0; // Остаток от деления = 0.
end;
Дальше просто берешь из интерфейса числа и проверяешь через эту функцию.
Вторая задача.
Ну тут вообще все просто. Можно даже обойтись без жутких кейсов.
Номера месяцев, соотв. номкру сезона:
(N-1) * 3
(N-1) * 3 + 1
(N-1) * 3 + 2
И 0 меняем на 12.
Теперь о кол-ве дней.
есть функция - DaysInAMonth - возвращает кол-во дней в месяце, но требует указания года. Для получения года можно, например, использовать такую конструкцию: YearOf(Date).
Ну как из этого составить вычисление, надеюсь, сам разберешься.