Найти порядковый номер даты, начав отсчет с начала года

const
    a=1;
    b=4;
    c=2013;
var
    n, i, kod: Integer;
begin
    kod:=$AC5;
    n := a;
    for i:=1 to b-1 do begin
        if i=2 then
            if c mod 4 <> 0 then n:=n+28
            else if c mod 100 <> 0 then n:=n+29
                 else if c mod 400 <> 0 then n:=n+28
                      else n:=n+29
        else if odd(kod) then n:=n+31
             else n:=n+30;
        kod:=kod shr 1;
    end;
    WriteLn(n);
end.

var
  d, m, y, n, i, kod: Integer;
begin
  repeat
    Write('Введите день месяц год: '); ReadLn(d,m,y);
  until (d in [1..31]) and (m in [1..12]);
  kod:=$AD5; n:=d;
  for i:=1 to m-1 do begin
    if i=2 then Inc(n,28+Odd((y mod 4=0) and ((y mod 100<>0) or (y mod 400=0)))
    else Inc(n,30+Odd(kod));
    kod:=kod shr 1;
  end;
  WriteLn('Номер дня от начала года: ',n);
end.

uses SysUtils,DateUtils;
var a,b,c:Word;
d1,d2:TDateTime;
begin
Write('a=');
Readln(a);
Write('b=');
Readln(b);
Write('c=');
Readln(c);
d1:=EncodeDate(c,1,1);
d2:=EncodeDate(c,b,a);
Writeln('Номер дня от начала года:',DaysBetween(d1,d2)+1);
Readln;
end.

uses System;
var a,b,c:Word;
begin
Write('a=');
Readln(a);
Write('b=');
Readln(b);
Write('c=');
Readln(c);
var d1:=new DateTime(c,1,1);
var d2:=new DateTime(c,b,a);
Writeln('Номер дня от начала года:',(d2-d1).Days+1);
end.

uses SysUtils,DateUtils;
var
  d, m, y: Word;
begin
  repeat
    Write('Введите день месяц год: '); ReadLn(d,m,y);
  until (d in [1..31]) and (m in [1..12]);
  WriteLn('Номер дня от начала года: ',DaysBetween(EncodeDate(y,m,d),EncodeDate(y,1,1))+1);
end.

var d, m, y, n, i: Integer;
begin
  repeat
    Write('Введите день месяц год: '); ReadLn(d,m,y);
  until (d in [1..31]) and (m in [1..12]);
  n:=d;
  for i:=1 to m-1 do
    if i=2 then Inc(n,28+Odd((y mod 4=0) and ((y mod 100<>0) or (y mod 400=0)))
    else Inc(n,30+Ord(Odd(i) xor (i>7)));
  WriteLn('Номер дня от начала года: ',n);
end.

var
  d, m, y, n, i, kod: Integer;
begin
  repeat
    Write('Введите день месяц год: '); ReadLn(d,m,y);
  until (d in [1..31]) and (m in [1..12]);
  kod:=$AD5; n:=d;
  for i:=1 to m-1 do begin
    if i=2 then Inc(n,28+Ord((y mod 4=0) and ((y mod 100<>0) or (y mod 400=0))))
    else Inc(n,30+kod and 1);
    kod:=kod shr 1;
  end;
  WriteLn('Номер дня от начала года: ',n);
end.

  WriteLn('Номер дня от начала года: ',DayOfTheYear(EncodeDate(y,m,d));