How many days to NY

var d,m:integer;
begin
write('Введите день и месяц: ');
read(d); read(m);
if (d>31) or (d<1) or (m>12) or (m<1) then
writeln('Введены неверные данные')
else
case m of
1: writeln('До нового года осталось ', 366-d, ' дней');
2: writeln('До нового года осталось ', 335-d, ' дней');
3: writeln('До нового года осталось ', 307-d, ' дней');
4: writeln('До нового года осталось ', 276-d, ' дней');
5: writeln('До нового года осталось ', 246-d, ' дней');
6: writeln('До нового года осталось ', 215-d, ' дней');
7: writeln('До нового года осталось ', 185-d, ' дней');
8: writeln('До нового года осталось ', 154-d, ' дней');
9: writeln('До нового года осталось ', 123-d, ' дней');
10: writeln('До нового года осталось ', 93-d, ' дней');
11: writeln('До нового года осталось ', 62-d, ' дней');
12: writeln('До нового года осталось ', 32-d, ' дней');
end;
end.