Procedure.b p(y)
  ProcedureReturn (y + Int(y/4) - Int(y/100) + Int(y/400)) % 7
EndProcedure

Procedure.b isLongYear(y)
  ProcedureReturn Bool((p(y) = 4) Or (p(y - 1) = 3))
EndProcedure

If OpenConsole()
  For y = 2000 To 2100
    If isLongYear(y)
      PrintN(Str(y))
    EndIf
  Next y

  Print(""): Input()
  CloseConsole()
EndIf