Question

Вычисление дня и месяца православной Пасхи. Про введенному с клавиатуры году вычислить
день и месяц празднования православной Пасхи в соответствии с приведенным ниже алгоритмом.
Здесь знак % означает взятие остатка от деления, а знак / означает деление без остатка.

a = year % 4;
b = year % 7;
c = year % 19;
d = ( 19 * c + 15 ) % 30;
e = ( 2 * a + 4 * b - d + 34 ) % 7;
f = 3 + (d + e + 21) / 31;
g = ( d + e + 21 ) % 31;
month = f;
day = g + 1;


ПОМОГИТЕ ПОЖАЛУЙСТА СДЕЛАТЬ В ПАСКАЛЕ ЗАДАНИЕЕЕЕ

Answer 1

var year,month,day,a,b,c,d,e,f,g: integer;

begin

readln(year);

a := year mod 4;

b := year mod 7;

c := year mod 19;

d := ( 19 * c + 15 ) mod 30;

e := ( 2 * a + 4 * b - d + 34 ) mod 7;

f := 3 + (d + e + 21) div 31;

g := ( d + e + 21 ) mod 31;

month := f;

day := g + 1;

writeln(day,' ',month);

end.