Most years have 52 weeks, some have 53, according to ISO8601.



Task

Write a function which determines if a given year is long (53 weeks) or not, and demonstrate it.




 
see "long years 2000-2099: "
for year = 2000 to 2100
    num1 = (year-1900)%7 
    num2 = floor((year-1904)/4)
    num3 = (num1+num2+5)%7 
    if num3 = 0 or (num1 = 6 and num3 = 1)
       see "" + year + " "
    ok
next
 