19 lines
333 B
Plaintext
19 lines
333 B
Plaintext
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
|