FUNCTION p(y) = REMAINDER((y + INT(y/4) - INT(y/100) + INT(y/400)), 7)

FUNCTION isLongYear(y)
    IF p(y) = 4 THEN
       LET isLongYear = 1
    ELSEIF p(y-1) = 3 THEN
       LET isLongYear = 1
    ELSE
       LET isLongYear = 0
    END IF
END FUNCTION

FOR y = 2000 TO 2100
    IF isLongYear(y) > 0 THEN PRINT y
NEXT y
END