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

program zadacha;vara: array[1..10] of integer;i,n: integer;beginfor i:=1 to 10 do read(a[i]);writeln();for i:=1 to 10 do begina[i]:=a[i]-i;write(a[i]:6);end;end.

// PascalABC.NET 3.2, сборка 1367 от 20.12.2016// Внимание! Если программа не работает, обновите версию!begin  var n:=ReadInteger('n=');  var a:=ReadArrInteger('Вводите элементы массива:',n);  a:=a.Select((x,i)->x-i-1).ToArray; a.Printlnend.Примерn= 7Вводите элементы массива: -12 4 0 -7 9 18 3-13 2 -3 -11 4 12 -4