Вячейку d8 введите текущую дату.  если количество дней, оставшихся до нового года, составляет меньше месяца, то выведите в ячейку d9 фразу «до нового года осталось меньше месяца».  если больше месяца или ровно месяц – то подсчитайте и выведите в d9 количество недель оставшихся до нового года. (количество дней, оставшихся до нового года, в отдельную ячейку не выводите).

Var day:integer; begin writeln('введите сколько осталось до нового года '); readln(day); if (day < 30) then begin writeln ('до нового года осталось меньше месяца'); end else begin writeln('до нового года осталось ',day,'дней'); end; end. если не в паскале сорян сейчас решу на паскале