Дан массив из 50 элементов. Найти произведение всех элементов.

Var

a: array [1 ... 50] of integer;

l: longint;

begin

for l : = 1 to 50 do

begin

a[l] : = random (-5, 5);

write (a[l], ' ');

end;

l : = 1;

writeln ();

foreach k: integer in a do

l * = k;

writeln (l);

end.