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.