В какой строчке допущена ошибка в программе, написанной на языке PascalABC? Программа должна высчитывать произведение

В данной программе допущена ошибка в строке №8. При выполнении этой программы в строке №10 результат всегда будет равен нулю. Соответственно, результат строки №11 будет выводиться на экран в следующем виде: \"Произведение элементов массива=0\".Чтобы результат был верным надо строку №8 переписать следующим образом: p:=a[1].Вследствие этого изменения на экране будет отображаться правильный ответ, выведенный из строки №11.