Определить по дате чётность номера недели

const 
  week:array[1..7] of string = ('Понедельник','Вторник','Среда','Четверг','Пятница','Суббота','Воскресенье');
var
t2,t3,d1,m1,y1,b,m,d,y,c,w,e: integer;
 t1: DateTime; 
 
begin 
  t1:=DateTime.Now;
 d:=t1.Day;
  m:=t1.Month;
  y:=t1.Year;
   c:=ord(t1.DayOfWeek);
 d1:=2;
m1:=9 ;
y1:=2019;
 if m>2 then
    m:=m+1
  else begin
    m:=m+13;
    y:=y-1;
  end;
  if m1>2 then
    m1:=m1+1
  else begin
    m1:=m1+13;
    y1:=y1-1;
  end;
  t2:=trunc(36525*y/100+306*m/10+d);
  t3:=trunc(36525*y1/100+306*m1/10+d1);
  b:=t2-t3;
  w:=round(int(b/7))+1;
  e:= w mod 2;
  if e>0 then writeln('нечетная') else writeln('четная');
   writeln(week[c]);
    writeln(t1.Day,'.',t1.Month,'.',t1.Year);
  end.

function Julian(y, m, d: Integer): Longint;
begin
  if m>2 then Dec(m,3)
  else begin
    Inc(m,9); Dec(y);
  end;
  Julian:=
    146097*(y div 100) div 4 +
    1461  *(y mod 100) div 4 +
    (153*m+2) div 5+d+1721119;
end;
var
  yy, y, m, d: Integer;
begin
  Write('дд мм гг: '); ReadLn(d,m,y); yy:=y+Ord(m<9);
  WriteLn('Четная: ',Odd((Julian(y,m,d)-Julian(yy,9,1)) div 7));
end.