Паскаль. Ввести номер месяца и номер дня, вывести число дней, оставшихся до Нового года

program new_year;var sum, month, day:integer;const d: array [1..12] of integer = (31,28,31,30,31,30,31,31,30,31,30,31);//массив дней в месяцах задан как константаbeginwriteln(\'Введите номер месяца и номер дня через пробел\');readln(month, day); sum:=0;for i:integer:= month to 12 do sum:=sum+d[i]; //сумма дней до конца года //за текущий и последующие месяцыsum:=sum - day; //вычесть дни с начала месяцаwrite(\'До Нового года осталось \',sum,\' дней\');end.