Составьте программу вычисления суммы тех элементов одномерного массива А(N), что расположены перед последним нулевым

Суть: считаем массив, при этом будем отмечать каждый ноль, оставляя его номер в переменной, потом выведем 3 элемента, идущее до данного. Реализация: var a:array [1..10000] of integer; i, l,n:integer; begin l:=0;// изначально нет нулей, а значит, их адресов тоже read(n); //читаем число символов for i:= 1 to n do begin read(a[i]); if(a[i]=0) then l:=i; // если считали ноль, то запомним его адрес end; if l<>0 then write(a[l-1]+a[l-2]+a[l-3]) //выведем сумму 3-х элементов, идущих до нуля else write(\'нет нулей\') //если нулей нет, то задача не имеет смысла end.