Работа с массивами

[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;

[JUDAS]

отет на закрытую тема: http://www.programmersforum.ru/showthread.php?t=166469

const
  k = 7;
var
 P    : array[1..k] of integer = (3,4,5,6,7,6,8);
 name : array[1..8] of string = ('пн','вт','ср','чт','пт','сб','вск','вск');

 function CalcDayName(Planet : integer; Year, month, day : integer): string;
 var _pi  : integer;
      y,d : integer;
 begin
   result:='error';
   if not (Planet in [1..k]) then exit;
   _pi:=P[Planet];
   if not (month in [1.._pi]) then exit;
   if not (day in [1.._pi*7]) then exit;
   // число лет от 2000-го года
   y:=Year-2000;
   // число дней от 2000-го года
   d := y*(7*_pi*_pi) ; // неделя на каждой планете состоит из 7 дней,
                        // месяц  из pi  недель, год из pi месяцев.
   d := d+month*_pi*7+day; // добавляем от 1.01. текущего года
  // корреткируем дни добавляя в каждый 1 лишний день в высокосном году
  y:=2000;
  while y<Year do
  begin
   d := d + byte((((y div _pi)=0) or ((y div (_pi*3))=0)) and  ((y div (_pi*2))<>0));
   inc(y);
  end;
  d:=d-1;
  //возвращаем день
  result := name[(d mod 7)+1];
 end;

Кадій новичок имеет право но помощь

[Jeffrey_4]

Прости, но это что-то не то!!!