program pocet_dni;
uses crt;
type datum = record
        den: integer;
        mesic: integer;
        rok: integer;
      end;
var d:datum;

function poradi (d:datum): integer;
   var p: array [1..12] of integer;     {pocet dni v mesici}
       i: integer;
       n, pocet: integer;
   begin
     pocet:=0;

     for i:=1 to 12 do
        p[i]:=31;
     if d.rok mod 4=0 then
          p[2]:=29
        else p[2]:=28;
     p[4]:=30; p[6]:=30; p[9]:=30; p[11]:=30;

     i:=1;
     while i<>d.mesic do
        begin
           pocet:=pocet+p[i];
           i:=i+1;
        end;
     pocet:=pocet+d.den;
     poradi:=pocet;
   end;

begin
  writeln ('Zadejte datum: ');
  read (d.den, d.mesic, d.rok);

  writeln ('Jedna se o ', poradi (d), ' . den v roce.');
  readkey;
end.