Безотлагательно !! Что значат числа когда считают d ? uses

СРОЧНО !! Что значат цифры когда считают d ?
uses crt;
const
f=28;
s=30;
t=31;
year=365;
var m,n,d,res:integer;
begin
clrscr;
write('Vvedite nomer mesyaca -gt; ');
readln(m);
write('Vvedite nomer dnya -gt; ');
readln(n);
if (mgt;12) or (ngt;31) then writeln('dannie vvedeni ne verno') else
begin
case m of
1:d:=n;
2:d:=t+n;
3:d:=t+f+n;
4:d:=2*t+f+n;
5:d:=2*t+F+s+n;
6:d:=3*t+f+s+n;
7:d:=3*t+2*s+f+n;
8:d:=4*t+2*s+f+n;
9:d:=5*t+2*s+f+n;
10:d:=5*t+3*s+f+n;
11:d:=6*t+3*s+f+n;
12:d:=6*t+4*s+f+n;
end;
res:=year-d;
writeln('Do novogo goda ostalos dney -gt; ',res);
end;
readkey;
end.