#include <basico.h>

#proto esañolargo(_X_)

algoritmo

   año=1800, c=5

   imprimir ("Long (53 week) years between 1800 and 2100:\n\n" )

   iterar grupo ( ++año, #( año<=2100 ), \
       cuando ( #( es año largo( año )==4 || es año largo( año-1 )==3 ) ){ \
           imprimir ( año, " ", solo si( #( c==0 ) , NL; c=6 ), --c ) } )

terminar

subrutinas

es año largo (y)
retornar ' #( (y + floor(y / 4) - floor(y / 100) + floor(y / 400)) % 7 ) '