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

// 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.Println
end.

Пример
n= 7
Вводите элементы массива: -12 4 0 -7 9 18 3
-13 2 -3 -11 4 12 -4

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.