Дан массив из 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.