Напишите программу, которая вводит с клавиатуры номер месяца и день, и определяет, сколько дней осталось до нового года. при вводе неверных данных должно быть выведено сообщение об ошибке. считается, что год невисокосный. входные данные входная строка содержит два целых числа: номер месяца и номер дня в этом месяце. выходные данные программа должна вывести количество дней, оставшихся до нового года. если введены неверные данные, нужно вывести число -1. примеры входные данные 1 2 выходные данные 363 входные данные 12 30 выходные данные 1 на паскале

Var a, d, count, i: integer;   function countday(a: integer): integer; begin   if (a > = 1) then countday : = 31;   if (a > = 2) then countday : = 28;   if (a > = 3) then countday : = 31;   if (a > = 4) then countday : = 30;   if (a > = 5) then countday : = 31;   if (a > = 6) then countday : = 30;   if (a > = 7) then countday : = 31;   if (a > = 8) then countday : = 31;   if (a > = 9) then countday : = 30;   if (a > = 10) then countday : = 31;   if (a > = 11) then countday : = 30;   if (a > = 12) then countday : = 31; end;   begin   count : = 0;   write('введите месяц: ');   readln(a);   write('введите день: ');   readln(d);   if (a < = 0)or(a > 12)or(d < = 0)or(d > countday(a)) then     writeln('ошшибка в данных! ')   else   begin     for i: =a to 12 do       count : = count + countday(i);       count : = count - d;       writeln('до нового года осталось ', count, ' дней.');   end; end.

6= 3*2 = 1*6 1116 1161 1611 6111 2311 3211 2131 3121 2113 3112 1231 1321 1213 1312 1123 1132 4 + 4*3 = 16