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

Program t1;

const

n=20

var

i, x, s : integer;

t: string;

m1: array [1 ... n] of integer;

begin

s : = 1;

for i : = 1 to n do

begin

x : = m1[i];

if (x 0) then s : = s * x;

end;

writeln ('Ответ ', s);

end;

end.