С клавиатуры задается число N не превышающее 20, определяющее количество элементов одномерного целочисленного массива. Затем вручную заполняется сам массив из N элементов. Особым элементом этого массива назовём элемент, значение которого больше своего индекса (порядкового номера). Нумерация индексов начинается с 1. Найти сумму особых элементов массива.
Входные данные: натуральное число N и N целочисленных элементов массива.
Выходные данные: число – сумма особых элементов массива.

Написать исходный код паскаль

var    i, n, summ: integer;  mas: array[1..20] of integer;begin  n := 0;  summ := 0;    while n <= 0 do   begin    writeln('enter N (1-20) = ');    read(n);  end;  for i := 1 to n do   begin     read(mas[i]);     if mas[i] > i then        summ := summ + mas[i]  end;writeln('sum = ', summ);end.