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

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