giúp mình bài này với làm bằng pascal nha mình cảm ơn

var a,b,c,d,e,f,i,t: longint;
//
function tn(a,b: longint): longint;
begin
    tn := 0;
    if a = 2 then 
        If (b mod 400 = 0) or ((b mod 100 <> 0) and (b mod 4 = 0)) then tn:= 29
            else tn:= 28;
    if tn <> 0 then exit;
    if (a = 1) or (a = 3) or (a = 5) or (a = 7) or (a = 8) or (a = 10) or (a = 12) then tn:= 31
    else tn:= 30;
end;
///

begin
    Read(a,b,c);
    Read(d,e,f);
    if b = e then 
        begin
            write(d-a+1);
            exit;
        end;
    t:= 1;
    For i:= b to e do
        begin
            if i = b then t:= t + (tn(b,c) - a);
            if (i <> b) and (i <> e) then t:= t + tn(i,c) ;
            if i = e then t:= t + d;
        end;
    write(t);
end.