Составьте программку вычисления суммы тех элементов одномерного массива А(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 llt;gt;0 then
write(a[l-1]+a[l-2]+a[l-3]) //выведем сумму 3-х частей, идущих до нуля
else write(нет нулей) //если нулей нет, то задачка не имеет смысла
end.