14 lines
239 B
Text
14 lines
239 B
Text
proc p(word y) word:
|
|
(y + y/4 - y/100 + y/400) % 7
|
|
corp
|
|
|
|
proc longyear(word y) bool:
|
|
p(y) = 4 or p(y-1) = 3
|
|
corp
|
|
|
|
proc main() void:
|
|
word y;
|
|
for y from 2000 upto 2100 do
|
|
if longyear(y) then writeln(y) fi
|
|
od
|
|
corp
|