В ячейку D8 введите текущую дату.  Если количество дней, оставшихся до Нового года,...

Question

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

Answer 1

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