#

# Calculo de la Pascua

#

#

FUNCION PRINCIPAL

INICIO ProgramaXX "Algoritmo de Carter - Dia de la Pascua"

   VAR

      Numerico B

      Numerico D

      Numerico E

      Numerico MES

      Numerico DIA

      Numerico anno

      String PTR

   FIN-VAR

   Leer (anno)

   B = 225 - 11*(anno % 19)

   D = ((B-21) % 30) + 21

   E = (anno + (anno/4) + D + 1) % 7

   DIA = D + 7 - E

   SI (DIA < 32)

      MES = 3

   SINO

      MES = 4

      DIA = DIA - 30

   FIN-SI

   PTR = UNIR(nl, " Pascua : ", dia, "/", mes, "/", anno)

   Imprimir (PTR)

FINAL