interface

Function pf00dg ( day, month, year : integer ) : integer;

implementation
uses
SysUtils;
Function pf00dg ( day, month, year : integer ) : integer;
var
day_tab : array [ 1..2, 0..12 ] of integer;
i, leap : integer;
begin
day_tab [ 1 ] [ 0 ] := 0;
day_tab [ 1 ] [ 1 ] := 31;
day_tab [ 1 ] [ 2 ] := 28;
day_tab [ 1 ] [ 3 ] := 31;
day_tab [ 1 ] [ 4 ] := 30;
day_tab [ 1 ] [ 5 ] := 31;
day_tab [ 1 ] [ 6 ] := 30;
day_tab [ 1 ] [ 7 ] := 31;
day_tab [ 1 ] [ 8 ] := 31;
day_tab [ 1 ] [ 9 ] := 30;
day_tab [ 1 ] [ 10 ] := 31;
day_tab [ 1 ] [ 11 ] := 30;
day_tab [ 1 ] [ 12 ] := 31;
day_tab [ 2 ] [ 0 ] := 0;
day_tab [ 2 ] [ 1 ] := 31;
day_tab [ 2 ] [ 2 ] := 29;
day_tab [ 2 ] [ 3 ] := 31;
day_tab [ 2 ] [ 4 ] := 30;
day_tab [ 2 ] [ 5 ] := 31;
day_tab [ 2 ] [ 6 ] := 30;
day_tab [ 2 ] [ 7 ] := 31;
day_tab [ 2 ] [ 8 ] := 31;
day_tab [ 2 ] [ 9 ] := 30;
day_tab [ 2 ] [ 10 ] := 31;
day_tab [ 2 ] [ 11 ] := 30;
day_tab [ 2 ] [ 12 ] := 31;
if year mod 4 = 0
then leap := 2
else leap := 1;
for i := 0 to month - 1 do
day := day + day_tab [ leap ] [ i ];
result := day;
end;