(*~\Глагол\Приложения\Календарь\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*)
                                ОТДЕЛ Пасха+; 
ИСПОЛЬЗУЕТ 
  Дата,
  НаЭкран ИЗ "..\..\Отделы\Обмен\ВводВывод\";

(*----------------------------------------------------------------------------*)
ЗАДАЧА ПравославнаяПасха(год:ЦЕЛ); 
ПЕР
                                           дата:Дата.Вид;
УКАЗ 
  Дата.ИзЧисла(Дата.ПравославнаяПасха(год),дата); 

  НаЭкран.Цел4числа("^Православная Пасха приходится на %02d.%02d.%04dг.^",
    дата.день,
              дата.месяц,
                         дата.год,
                                  0); 
КОН ПравославнаяПасха; 

(*-++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++-*)
УКАЗ 
  ПравославнаяПасха(2017)
КОН Пасха.
