program ProductOfNonZeroElements;

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

begin
product := 1;

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

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

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