Массивы!

[Sadty]

Сформируйте и выведите на экран массив из 9 элементов,каждые 3 последовательных элемента которого составлены по следующему правилу:
1ый равен 500
2ой равен целой части квадратного корня из предыдущего элемента
3ий равен целой части от деления текущего индекса (если она равна 0, то соответственно элемент массива сделать равным 1)

[zvygin1964]

Шоколадка.

[newerow1989]

var p:array[1..9] of integer;
    i:integer;
begin
   For i:=1 to 9 do
   begin
      If i mod 3=1 then
         p[i]:=500;
      If i mod 3=2 then
         p[i]:=Trunc(Sqrt(p[i-1]));
      If i mod 3=0 then
         p[i]:=500 div i;
   end;
   For i:=1 to 9 do
      Write(p[i],'  ');
   Readln;
end.

На счет 3-го элемента я не понял!