##
function IsLeapYear(year: word): boolean :=
   if year mod 100 = 0 then year mod 400 = 0
   else year mod 4 = 0;

IsLeapYear(2000).println;