begin
  var sequ := 1; 
  
  var arr := SeqRandomInteger(30).ToArray.Println;
  
  arr.Where(x -> x mod 13 = 0).Println.ForEach(procedure(x) -> sequ *= x);
  
  Writeln('Произведение: ', sequ);
end.