Identification division.
Program-ID. Date-of-Easter.
Environment division.
Data division.
Working-storage section.
01 year picture 99999.
01 result picture 99999.
01 century picture 99999.
01 leapdays picture 99999.
01 moondays picture 99999.
01 X picture 99999.
01 Y picture 99999.
01 J picture 99999.
01 N picture 99999.
Procedure division.
Accept year.
Divide year by 100 giving result.
Add 1 to result giving century.
* Note: Always round down. Discard remainders.
Multiply century by 3 giving result.
Divide result by 4 giving leapdays.
Multiply century by 8 giving result.
Add 5 to result.
Divide result by 25 giving moondays.
Divide year by 19 giving result.
Multiply result by 19.
Subtract result from year giving J.
Multiply J by 11 giving result.
Add moondays to result.
Subtract leapdays from result.
Add 614 to result giving X.
Divide X by 30 giving result.
Multiply result by 30.
Subtract X from result.
Add 57 to result giving N.
If N is equal to 56 and J is greater than 10
subtract 1 from N.
If N is equal to 57
subtract 1 from N.
Multiply year by 5 giving result.
Divide result by 4.
Subtract leapdays from result.
Add N to result.
Add 2 to result giving Y.
Divide Y by 7 giving result.
Multiply result by 7.
Add N to result.
Subtract Y from result.
If result is less than 32
display "March" result.
Subtract 31 from result.
If result is greater than 0
display "April" result.
Stop run.