Задан массив А(1:20). Найти произведение всех его ненулевых элементов. На паскале через массивы!)

Предыдущий
вопрос Следующий
вопрос

program ProductOfNonZeroElements;

va
A: array[1..20] of Integer
product: Integer
i: Integer;

begi
product := 1;

// Ввод элементов массив
for i := 1 to 20 d
begi
Write('Введите элемент массива A(', i, '): ')
Readln(A[i])
end;

// Вычисление произведения ненулевых элементо
for i := 1 to 20 d
begi
if A[i] <> 0 the
product := product * A[i]
end;

// Вывод результат
Writeln('Произведение всех ненулевых элементов массива А: ', product)
end.