[lmikle]

А самому подумать?

Первая задача.
Как определить, являетс ли число делителем другого? Разделить и посмотреть - делится нацело или нет.

Код:

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).

Ну как из этого составить вычисление, надеюсь, сам разберешься.