Написать программу в паскале "ввести номер месяца и номер дня, вывести число дней, оставшихся до нового года''

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

uses crt;

var n,d,j,i ,m: integer;

begin

clrscr;

repeat

writeln;

write('введите номер месяца* : ');

readln(m);

writeln;

write('введите номер дня : ');

readln(n);

case m of

2: begin d: =28; end;

4,6,9,11: begin d: =30; end;

1,3,5,7,8,10,12: d: =31

else d: =-1;

end;

until (n> 0) and (m> 0);

readln;

end.