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

Формулировка задачи:

Даны три натуральных числа А, B, C, обозначающие число, месяц и год. Найти порядковый номер даты, начав отсчет с начала года

Решение задачи: «Найти порядковый номер даты, начав отсчет с начала года»

Листинг программы

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.

Объяснение кода листинга программы

В данном коде объявлены следующие переменные:

a, b, c: целочисленные переменные, которые используются для хранения значений, связанных с датой.
n: целочисленная переменная, которая используется для хранения порядкового номера даты.
i, kod: целочисленные переменные, которые используются для выполнения различных операций. В начале кода присваивается значение переменной kod, которое представляет собой ASCII-код символа $AC5. Далее, переменной n присваивается начальное значение, равное переменной a. Затем, в цикле for происходит последовательное увеличение значения переменной n. Если значение переменной c делится на 4 без остатка, то значение переменной n увеличивается на 28. Если значение переменной c делится на 100 без остатка, но не делится на 400 без остатка, то значение переменной n увеличивается на 29. Если значение переменной c делится на 400 без остатка, то значение переменной n увеличивается на 28. Если значение переменной c не удовлетворяет ни одному из этих условий, то значение переменной n увеличивается на 29. Если значение переменной kod является нечетным, то значение переменной n увеличивается на 31. Если значение переменной kod четное, то значение переменной n увеличивается на 30. После выполнения цикла, значение переменной n записывается в файл с помощью функции WriteLn. Таким образом, данный код позволяет найти порядковый номер даты, начиная с начала года, с учетом високосных годов.