function DISECTO (ETOS: integer):boolean; {υπολογίζει αν το ETOS είναι δίσεκτο} begin DISECTO:= (ETOS mod 4 = 0) and ( (ETOS mod 100 <> 0) or (ETOS mod…