Задача в Delphi

[Пяtnышк0]

Помогите пожалуйста
Из элементов массива D сформировать массив А той же размерности по правилу: если номер четный, то Аi=Di2, если нечетный, то Ai=Di/i. Заменить первый элемент, кратный 5, нулем. Заменить элементы с нечетными номерами на квадрат их номера.

[Arigato]

В чем должна заключаться наша помощь?

[Пяtnышк0]

что нужно прописать,что бы произошла замена первого элемента, кратный 5, нулем..

[BDA]

//a - массив
//n - размер массива
i:=1;
while (a[i] mod 5<>0)and(i<=n) do
	inc(i);
if i<=n then
	a[i]:=0;