Дан массив, содержащий 2016 неотрицательных целых чисел. Нужно найти в этом

Дан массив, содержащий 2016 неотрицательных целых чисел. Нужно отыскать в этом массиве количество таких частей, которые равны среднему арифметическому двух частей, расположенных конкретно перед ним. Например, в массиве из 6 частей, равных соответственно 4, 6, 5, 1, 3, 2, есть три таких элемента, они размещены на 3-ем, 5-ом и шестом месте и одинаковы 5, 3 и 2. Начальные данные объявлены так, как показано ниже. Запрещается использовать переменные, не описанные ниже, но разрешается не использовать некоторые из обрисованных переменных. const N=2016; var a: array [1..N] of integer; i, k: integer; begin for i:=1 to N do readln(a[i]); end. В качестве ответа Для вас нужно привести кусок программки, который должен находиться на месте многоточия.