Guass formulae

Hi i was wondering if any of you could work out how to do this question in delphi.

Gauss developed a formula for calculating the date on which Easter Sunday will fall. His formula is…

K = year DIV 100
A = year MOD 19
B = year MOD 4
C = year MOD 7
Q = K DIV 4
P = (13 + 8K) DIV 25
M = (15P + K + Q) MOD 30
D = (19A + M) MOD 30
N = (4 + K – Q) MOD 7
E = (2B + 4C + 6D + N) MOD 7

Now, if D + E is <= 9 then the day = 22 + D + E and the month = 3 else if D = 29 and E = 6 then the day = 19 and the month = 4 else if D = 28 and E = 6 and A > 10 then the day = 18 and the month = 4 else the day = D + E – 9 and the month = 4. Does his formula work? To test this Easter 1999 is 4th April and Easter 2000 is 23rd April.