задана последовательность из N целых чисел. вычислить сумму тех элементов массива порядковые номера которых совпадают со значением этого элемента

const  n = 5;// количество элем массиваvar  a: array [1..n] of integer;  sum, i: integer;begin  for i := 1 to n do    readln(a[i]);   for i := 1 to n do    if a[i] = i then       sum := sum + a[i];  writeln(sum);end.