function DISECTO (ETOS: integer):boolean; {υπολογίζει αν το ETOS είναι δίσεκτο}
begin
DISECTO:= (ETOS mod 4 = 0) and ( (ETOS mod 100 <> 0) or (ETOS mod 400 = 0) );
end;
function PLITHOS_HMERWN_MHNOS(MHNAS, ETOS: integer): integer; {υπολογίζει το πλήθος ηµερών του MHNAS του ETOS}
begin
case MHNAS of
1, 3, 5, 7, 8, 10, 12: PLITHOS_HMERWN_MHNOS : = 31;
2: if DISECTO (ETOS) then PLITHOS_HMERWN_MHNOS : = 29;
else PLITHOS_HMERWN_MHNOS : = 28;
4, 6, 9, 11: PLITHOS_HMERWN_MHNOS : = 30;
end {case}
end;
function AR_HMERWN_ETOYS (ETOS: integer): integer; {υπολογίζει το πλήθος ηµερών του ETOS}
begin
if DISECTO (ETOS) then AR_HMERWN_ETOYS := 366;
else AR_HMERWN_ETOYS := 365;
end.