ПОМОГИТЕ, ОЧЕНЬ НАДО!!!
Ввести номер месяца и номер дня, вывести число дней, оставшихся до Нового года.
Пример:
Введите номер месяца
12
Введите день
25
До Нового года осталось 6 дней.
P.S.: надо постараться использовать if, while, repeat, until, div mod, case of (НЕ ОБЯЗАТЕЛЬНО ИСПОЛЬЗОВАТЬ ВСЕ ИЗ ЭТОГО)

Без "if, while, repeat, until, div mod, case of" получается короче и проще:const days:array[1..12]of integer=(31,28,31,30,31,30,31,31,30,31,30,31);var m,d,k,i:integer;beginwriteln('Введите номер месяца');readln(m);writeln('Введите день');readln(d);k:=0;for i:=1 to m-1 do k:=k+days[i];k:=365-k-d;writeln('До Нового года осталось ' ,k,' дней (день/дня)');end.Пример:Введите номер месяца12Введите день25До Нового года осталось 6 дней (день/дня)