Дан одномерный массив а1 , а2 , …, а n . все элементы уменьшить на величину квадрата номера этого элемента.

Так и не понял сколько элементов в массиве. Будем считать, что их 10 и заполним массив случайными числами в диапазоне от 0 до 100.
//PascalABC.NET v3.3

const n = 10;

var

  i: integer;

  a:array[1..n]of integer;

begin

  //заполним массив случайными значениями 

  //и изменим полученное значение согласно

  //условию задачи

  randomize;

  for i:=1 to n do begin

    a[i]:=random(100)-sqr(i);

  end;

end.