Помогите пожалуйста срочно решить 3 задачи в Паскале! Тема массивы (я их ну никак…

Вот 1: Program Help; Var A: Array[0… 1000] of Integer*Наш массив*) n: Integer; Begin (*Какая-то часть кода… *) n: =0*Присвоить счетчику 0*) Repeat Write (A[n], ')*Выводим A[n]*) n: =n+2*Прибавляем к счетчику 2*) Until n=1000*Повторить до длинны массива*) Readln; End.