FUNCTION calculpaques(year : INTEGER) : INTEGER; VAR a, b, c, d, e, f, g, h, i, k, l, m : INTEGER; BEGIN a := year MOD 19; b := year DIV 100; c := year MOD 100; d := b DIV 4; e := b MOD 4; f := ( b + 8 ) DIV 25; g := ( b f + 1 ) DIV 3; h := ( 19 * a + b d g + 15 ) MOD 30; i := c DIV 4; k := c MOD 4; l := ( 32 + 2 * e + 2 * i h k ) MOD 7; m := ( a + 11 * h + 22 * l ) DIV 451; Easter := h + l 7 * m + 22; END{FUNC};