Паскаль авс.net программы . массивы подсчитайте количество элементов одномерного массива, абсолютная величина которых совпадает со своим номером.

// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ReadSeqIntegerWhile('Вводите числа, окончание - 0:',x->x<>0).ToArray;
  Writeln('Искомое количество: ',a.Where((x,i)->abs(x)=i+1).Count)
end.

Пример
Вводите числа, окончание - 0: 3 2 7 11 -6 3 -7 16 0
Искомое количество: 2