Помогите с задачей в паскале.

program qwe;
var a,b,c,d:integer;
begin
readln(a);
readln(b);
c:=12-a;
if a=1 then d:=31-b else
if a=2 then d:=28-b else
if a=3 then d:=31-b else
if a=4 then d:=30-b else
if a=5 then d:=31-b else
if a=6 then d:=30-b else
if a=7 then d:=31-b else
if a=8 then d:=31-b else
if a=9 then d:=30-b else
if a=10 then d:=31-b else
if a=11 then d:=30-b else
if a=12 then d:=31-b else ;
if c=0 then writeln('Осталось ',d,' д. ') else
writeln('Осталось',c,' мес. и ',d,' д. ')
end.
Чет типо того?

а что там писать? указываете сколько в месяце дней (лучше в массиве) . затем после выбора месяца вы обращаетесь к массиву и вытаскиваете все количества дней до начала текущего месяца.. . ну то есть если вводим 8 марта, то вытаскиваете январь - 31, февраль - 28... дни полученные складываете с введенным днем - 31 + 28=59 + 8 (марта ж 8-ое) = 67... то есть мы узнали сколько дней прошло.. . сколько всего дней тоже знаем - 365... теперь простым вычитанием узнаем сколько осталось - 365 - 67

напиши на почту, тут код плохо отображается

ЭТО НА Python

from datetime import date
s = '20.10' # input() # '20.10'
(day, month) = s.split('.')
year = date.today().year
print(str.format('{} days to new year', (date(year, 12, 31) - date(year, int(month), int(day))).days))