Задача на массив.

[Rose 005]

Здравствуйте, есть задача. Составьте программу , с помощью которой создайте массив из 27 элементов, в котором элемент с нечетным индексом равен квадрату своего индекса, а каждый элемент с четным индексом равен скмме всех предыдущих элементов.

[N.i.k.o.l.a.y.]

Если еще надо то за 50рублей могу решить.или хотя бы код, хоть попытки...

[revizor]

program NameProgram;
const
	SIZE = 27;
var
	massive: array[1..SIZE] of word;
	i: integer;
	sum: word;
begin
	sum:=0;

	for i:=1 to SIZE do
	begin
		if (i mod 2 <> 0) then massive[i] := i*i
		else massive[i] := sum;
		
		sum := sum + massive[i];
	end;

	for i:=1 to SIZE do
		Write(massive[i], ' ');

	ReadLn;
end.