Напишите программу,которая получает день,номер месяца и выводит кол-во дней,оставшихся до нового года)))Помогите пожалуйста!!!!!

var  d,m,i,all:integer; begin  read(d,m);  all:=0;  for i:=12 downto (m+1) do  begin   if i=12 then    all:=all+31;   if i=11 then    all:=all+30;   if i=10 then    all:=all+31;   if i=9 then    all:=all+30;   if i=8 then    all:=all+31;   if i=7 then    all:=all+31;   if i=6 then    all:=all+30;   if i=5 then    all:=all+31;   if i=4 then    all:=all+30;   if i=3 then    all:=all+31;   if i=2 then    all:=all+28;   if i=1 then    all:=all+31;  end;  if i=12 then    all:=all+31-d;   if i=11 then    all:=all+30-d;   if i=10 then    all:=all+31-d;   if i=9 then    all:=all+30-d;   if i=8 then    all:=all+31-d;   if i=7 then    all:=all+31-d;   if i=6 then    all:=all+30-d;   if i=5 then    all:=all+31-d;   if i=4 then    all:=all+30-d;   if i=3 then    all:=all+31-d;   if i=2 then    all:=all+28-d;   if i=1 then    all:=all+31-d;  writeln(all); end.