Помогіте с решеніем задачі!

[Jeffrey_4]

есть число дней!
В недавно открытой звјздной системе k обитаемых планет. Планеты занумерованы от 1 до k,
при этом чем меньше номер планеты, тем ближе планета находится к звезде. Календарь на каждой
из планет устроен схожим образом: для планеты задано простое число pi  ѕоснованиеї календаря.
Неделя на каждой планете состоит из 7 дней, называющихся так же, как и на Земле, месяц  из pi
недель, год  из pi месяцев.
В календаре существуют также високосные годы. Год является високосным, если его номер де-
лится на (pi)3 или же делится на pi , но не делится на (pi)2 . В високосные годы  в отличие от
земных  последняя неделя каждого месяца с простым номером (месяца нумеруются с единицы)
состоит из 8 дней  после воскресенья снова идјт воскресенье.
Длина суток на всех планетах согласована с земной, то есть понятие ѕте же сутки, что и на
Землеї корректно определено и имеет смысл. Известно, что когда на земле было 1 января 2000
года, на всех k планетах системы был первый день первого месяца первого года, понедельник. Ваша
задача по заданной дате (число, месяц, год) на Земле вычислить, какой день недели будет на каждой
из k планет системы.
нужно найти и вывести название дня недели для каждой из планет!
***********
вот что получилось для невысокосного года:
for i:=1 to k do
begin
g:=h;repeat;
if g>7*p[i] then g:=g-7*p[i];
if g>7 then g:=g-7;
until g<=7;
writeln(n[g]);
end;

[Serge_Bliznykov]

КРОССПОСТ

ваша тема тут:
Работа с массивами

ЭТА ТЕМА ЗАКРЫТА!