ПОМОГИТЕ, ПОЖАЛУЙСТА. Напишите программу, которая получает день и номер месяца, а выводит количество дней, оставшихся до Нового Года. Считайте, что год невисокосный (365 дней). Учтите, что слово «дней» может иметь также формы «день» и «дня».

Спасибо большое!

VarДень,Месяц:byte;BeginWrite('№ дня = ');ReadLn(День);Var C:=365-День;Write('№ месяца = ');ReadLn(Месяц);Case Месяц of2:C:=C-31;3:C:=C-59;4:C:=C-90;5:C:=C-120;6:C:=C-151;7:C:=C-181;8:C:=C-212;9:C:=C-243;10:C:=C-273;11:C:=C-304;12:C:=C-334End;if (C mod 100>10)and(C mod 100<20) then Write('До нового года осталось ',C,' дней')elseCase C mod 10 of1:Write('До нового года остался ',C,' день');2..4:Write('До нового года осталось ',C,' дня');0,5..9:Write('До нового года осталось ',C,' дней')EndEnd.