program-id.y.data division.working-storage section.
1 n pic 9999.
1 s pic x(17) value" not a leap year.".procedure division.a.accept n
display n" is"s(5- 4*0^function integer-of-date(4000229+n*10^4):)if
n<>2008 if n<>2500 if n<>1859 go a.