PROGRAM OSTERN
      DIMENSION L(3),T(3)
      OPEN(1,FILE='OUTPUT')
      WRITE(1,'(3(/),1X,3(6X,18HJahr  Ostersonntag),/)')
      DO 2 I=1992,2027
      J=I
      DO 1 N=1,3
      L(N)=J
      K=MOD(204-11*MOD(J,19),30)
      IF(K.LT.28) K=K+1
      T(N)=AMOD(FLOAT(K-MOD(J/4+J+K,7))+26.3,30.9)+1.
1     J=J+36
2     WRITE(1,'(3(7X,I4,5X,F4.1,1H.,3X))') (L(N),T(N),N=1,3)
      END




      Jahr  Ostersonntag      Jahr  Ostersonntag      Jahr  Ostersonntag

      1992     19.4.          2028     16.4.          2064      6.4.
      1993     11.4.          2029      1.4.          2065     29.3.
      1994      3.4.          2030     21.4.          2066     11.4.
      1995     16.4.          2031     13.4.          2067      3.4.
      1996      7.4.          2032     28.3.          2068     22.4.
      1997     30.3.          2033     17.4.          2069     14.4.
      1998     12.4.          2034      9.4.          2070     30.3.
      1999      4.4.          2035     25.3.          2071     19.4.
      2000     23.4.          2036     13.4.          2072     10.4.
      2001     15.4.          2037      5.4.          2073     26.3.
      2002     31.3.          2038     25.4.          2074     15.4.
      2003     20.4.          2039     10.4.          2075      7.4.
      2004     11.4.          2040      1.4.          2076     19.4.
      2005     27.3.          2041     21.4.          2077     11.4.
      2006     16.4.          2042      6.4.          2078      3.4.
      2007      8.4.          2043     29.3.          2079     23.4.
      2008     23.3.          2044     17.4.          2080      7.4.
      2009     12.4.          2045      9.4.          2081     30.3.
      2010      4.4.          2046     25.3.          2082     19.4.
      2011     24.4.          2047     14.4.          2083      4.4.
      2012      8.4.          2048      5.4.          2084     26.3.
      2013     31.3.          2049     18.4.          2085     15.4.
      2014     20.4.          2050     10.4.          2086     31.3.
      2015      5.4.          2051      2.4.          2087     20.4.
      2016     27.3.          2052     21.4.          2088     11.4.
      2017     16.4.          2053      6.4.          2089      3.4.
      2018      1.4.          2054     29.3.          2090     16.4.
      2019     21.4.          2055     18.4.          2091      8.4.
      2020     12.4.          2056      2.4.          2092     30.3.
      2021      4.4.          2057     22.4.          2093     12.4.
      2022     17.4.          2058     14.4.          2094      4.4.
      2023      9.4.          2059     30.3.          2095     24.4.
      2024     31.3.          2060     18.4.          2096     15.4.
      2025     20.4.          2061     10.4.          2097     31.3.
      2026      5.4.          2062     26.3.          2098     20.4.
      2027     28.3.          2063     15.4.          2099     12.4.