Помогите пожалуйста!!! Составить программу в которой значение каждого элемента массива равно раннее введённому значению минус порядковый номер

ОТДЕЛ Задание+; ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\", Приём; ПЕР   массив: ДОСТУП К РЯД ИЗ ЦЕЛ;   сч: ЦЕЛ; УКАЗ   СОЗДАТЬ(массив, Приём.Число());   ОТ сч := 0 ДО РАЗМЕР(массив^) - 1 ВЫП     Вывод.Цепь(" ");     массив[сч] := Приём.Число() - сч   КОН КОН Задание.