Azt hogyan tudom megcsinálni Turbo Pascal nyelven, hogy bekérek egy dátumot (pl.2008. 01.31. ) és a program megállapítja a dátumról, hogy az az év hányadik napja (31. most)?

csinálsz egy 13 (0..12) elemes "t" tömböt, az elemek 0,31,28,31,30,31,30,31,31,30,31,30,31

az évszám alapján megnézed, hogy szökőév-e (4gyel oszható igen, 100zal osztható nem, 400zal osztható igen), ha igen, akkor t(2):=29

összeadod 0 tól (hónap-1)ig a tömb elemeit és hozzáadod a napot.