begin
   integer year, month, day;

   integer procedure easter sunday(y);
      value y; integer y;
   begin integer a, b, c, h;
      integer procedure rem(a, b);
         value a, b; integer a, b;
      begin integer c;
         c ≔ a / b; rem ≔ a - b × c
      end rem;

      a ≔ rem(y, 19);
      b ≔ y / 100; c ≔ rem(y, 100);
      h ≔ rem((19 × a + b - b / 4 + 15 - ((8 × b + 13) / 25)), 30);
      c ≔ rem((2 × (rem(b, 4) + c / 4) - h - rem(c, 4) + 32), 7);
      h ≔ h + c - 7 × ((a + 11 × h + 19 × c) / 433);
      a ≔ (h + 90) / 25;
      easter sunday ≔ rem(100 × a + (33 × a + h + 19), 32)
   end easter sunday;

   for year ≔ 2010 step 1 until 2029 do
      begin
         day ≔ easter sunday(year);
         month ≔ day / 100; day ≔ day - 100 × month;

         write text(30, “c”);
         write(30, format(“ndddd”), year);
         if month = 3 then write text(30, “ March”) else write text(30, “ April”);
         write(30, format(“ndd”), day)
      end
end